(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    238660,       5484]
NotebookOptionsPosition[    227925,       5180]
NotebookOutlinePosition[    228346,       5196]
CellTagsIndexPosition[    228303,       5193]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Control Aero", "Title",
 CellChangeTimes->{{3.520873834546875*^9, 3.520873840984375*^9}, {
   3.520880951484375*^9, 3.520880952703125*^9}, 3.5353435216307597`*^9, {
   3.5771804110312834`*^9, 3.577180412236352*^9}}],

Cell[CellGroupData[{

Cell["General", "Section",
 CellChangeTimes->{{3.571975903771537*^9, 3.571975916079858*^9}}],

Cell[BoxData[
 RowBox[{"<<", "C:\\\\Hopsan\\Compgen\\CompgenNG06.mx"}]], "Input",
 CellChangeTimes->{{3.57692008006717*^9, 3.576920080081172*^9}}],

Cell[BoxData[
 RowBox[{"Off", "[", 
  RowBox[{"General", "::", "\"\<spell1\>\""}], "]"}]], "Input",
 PageWidth->WindowWidth],

Cell[BoxData[
 RowBox[{
  RowBox[{"defaultPath", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", "\"\<HOPSAN++\>\"", ",", 
      "\"\<ComponentLibraries\>\"", ",", "\"\<defaultLibrary\>\"", ",", 
      "\"\<Special\>\"", ",", "\"\<AeroComponents\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Attitude Control", "Section",
 CellChangeTimes->{{3.520873963671875*^9, 3.520873967265625*^9}, {
  3.5769482475613537`*^9, 3.5769482533236833`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Signal\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<AttitudeControl\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Attitude control unit for an aircraft\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentSignal\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.520874016125*^9, 3.520874068265625*^9}, {
   3.52087448028125*^9, 3.52087450728125*^9}, 3.52087996896875*^9, {
   3.520880203578125*^9, 3.52088022325*^9}, {3.520932119625*^9, 
   3.5209321425*^9}, 3.5209322290625*^9, {3.520932736140625*^9, 
   3.520932737640625*^9}, 3.522342782453125*^9, {3.5256245293125*^9, 
   3.52562454328125*^9}, {3.526016819973899*^9, 3.5260168209582806`*^9}, 
   3.5765096986176724`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "phiref", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Reference signal roll\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "thetaref", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Reference signal tip\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "psiref", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Reference signal yaw\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "phimax", ",", "1.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Maximum bank angle for turn\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "phi", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<roll angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "theta", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<tipp angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "psi", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<yaw angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "beta", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<side slip angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Qb", ",", "0.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<tip angle rate\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Rb", ",", "0.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<yaw angle rate\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ub", ",", "0.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<actual speed\>\""}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.520874548453125*^9, 3.520874548453125*^9}, {
   3.520874718671875*^9, 3.520874721046875*^9}, {3.520874755734375*^9, 
   3.520874766015625*^9}, {3.534151799828125*^9, 3.53415180021875*^9}, {
   3.573711698540125*^9, 3.573711705164504*^9}, 3.574059944319121*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Kphi", ",", "3.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Gain roll\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Kphipsi", ",", "2.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Gain yaw/roll\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Kelev", ",", "4.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Gain tip, default\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Kdelev", ",", "1.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Gain tip, default\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Krud", ",", "1.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Gain yaw, default\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Kdrud", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Gain yaw rate, default\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"u1min", ",", 
       RowBox[{"-", ".9"}], ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Minium output signal roll\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "u1max", ",", ".9", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Maximum output signal roll\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"u2min", ",", 
       RowBox[{"-", ".7"}], ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Minium output signal tip\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "u2max", ",", ".7", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Maximum output signal tip\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"u3min", ",", 
       RowBox[{"-", ".7"}], ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Minium output signal yaw\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "u3max", ",", ".7", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Maximum output signal yaw\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "U0", ",", "100.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Reference speed for compensation\>\""}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.520874584265625*^9, 3.520874584265625*^9}, {
   3.520874721515625*^9, 3.5208747834375*^9}, {3.52562634321875*^9, 
   3.5256264030625*^9}, 3.5261184740790405`*^9, {3.534151810859375*^9, 
   3.534151811265625*^9}, {3.5363116760362206`*^9, 3.5363116829580956`*^9}, {
   3.571925345921828*^9, 3.5719253572630477`*^9}, {3.5737116595478945`*^9, 
   3.573711681356142*^9}, 3.5740599485465436`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "uaerL", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<left aerleron\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "uaerR", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<right aerleron\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "uelev", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<elevator\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "urud", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<rudder\>\""}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.520874568515625*^9, 3.520874568515625*^9}, {
  3.52087472571875*^9, 3.520874753328125*^9}, {3.520874792546875*^9, 
  3.520874801671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"localExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Kv", "==", 
      FractionBox[
       SuperscriptBox["U0", "2"], 
       RowBox[{
        SuperscriptBox["U0", "2"], "+", 
        RowBox[{"Abs", "[", 
         SuperscriptBox["Ub", "2"], "]"}]}]]}], ",", "\[IndentingNewLine]", 
     RowBox[{"u1cmin", "==", 
      RowBox[{"Kv", " ", "u1min"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"u1cmax", "==", 
      RowBox[{"Kv", " ", "u1max"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"u2cmin", "==", 
      RowBox[{"Kv", " ", "u2min"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"u2cmax", "==", 
      RowBox[{"Kv", " ", "u2max"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"u3cmin", "==", "u3min"}], ",", "\[IndentingNewLine]", 
     RowBox[{"u3cmax", "==", "u3max"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.52087472684375*^9, 3.52087472896875*^9}, {
   3.5223471696875*^9, 3.522347170765625*^9}, {3.53413052296875*^9, 
   3.53413053071875*^9}, {3.571909066643772*^9, 3.5719091085610456`*^9}, 
   3.571909210894826*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"yaerexpr", "   ", "=", " ", 
   RowBox[{"Kv", " ", "Kphi", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"diffAngle", "[", 
       RowBox[{"phiref", ",", "phi"}], "]"}], "+", 
      RowBox[{"limit", "[", 
       RowBox[{
        RowBox[{"Kphipsi", " ", 
         RowBox[{"diffAngle", "[", 
          RowBox[{"psiref", ",", "psi"}], "]"}]}], ",", 
        RowBox[{"-", "phimax"}], ",", "phimax"}], "]"}]}], ")"}]}]}], " ", 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"yelevexpr", " ", "=", " ", 
   RowBox[{
    RowBox[{"Kv", " ", "Kelev", " ", 
     RowBox[{"(", 
      RowBox[{"diffAngle", "[", 
       RowBox[{"thetaref", ",", "theta"}], "]"}], " ", ")"}]}], "-", 
    RowBox[{"Kv", " ", "Kdelev", " ", "Qb"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"yrudexpr", "   ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", " ", "Krud"}], " ", "beta"}], " ", "-", 
    RowBox[{"Kv", " ", "Kdrud", " ", "Rb"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.520874640046875*^9, 3.520874692546875*^9, {3.5209330574375*^9, 
   3.520933060859375*^9}, 3.525580570849698*^9, {3.53413054015625*^9, 
   3.5341305480625*^9}, {3.534151750078125*^9, 3.534151759390625*^9}, {
   3.5737116015705786`*^9, 3.57371165019936*^9}, {3.574059958854574*^9, 
   3.5740599614458337`*^9}, 3.574060060633751*^9, 3.574060794573138*^9, 
   3.574061556452866*^9, 3.5771613981898108`*^9, 3.577161449247731*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{"uaerL", "==", 
      RowBox[{"limit", "[", 
       RowBox[{"yaerexpr", ",", "u1cmin", ",", "u1cmax"}], "]"}]}], ",", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"uaerR", "==", 
      RowBox[{"limit", "[", 
       RowBox[{
        RowBox[{"-", "yaerexpr"}], ",", "u1cmin", ",", "u1cmax"}], "]"}]}], 
     ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"uelev", "==", 
      RowBox[{"limit", "[", 
       RowBox[{
        RowBox[{"-", "yelevexpr"}], ",", "u2cmin", ",", "u2cmax"}], "]"}]}], 
     ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"urud", "==", 
      RowBox[{"limit", "[", 
       RowBox[{"yrudexpr", ",", "u3cmin", ",", "u3cmax"}], "]"}]}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.520874644515625*^9, 3.5208746525*^9}, {
   3.5208746850625*^9, 3.520874689984375*^9}, 3.520932942234375*^9, 
   3.536319993245064*^9, {3.5719091158462586`*^9, 3.571909136781495*^9}, {
   3.5737116261829863`*^9, 3.5737116270600367`*^9}, {3.5771614012079835`*^9, 
   3.577161403857135*^9}, 3.5771614522939053`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input",
 CellChangeTimes->{{3.520938682*^9, 3.520938682484375*^9}, {
  3.5719092689269276`*^9, 3.5719092692857285`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\(\\(\\\"SignalAt\\\" \[Ellipsis] \
\\\"eControl\\\"\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)}\
\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \
\\(\\({\\(\\(\\\"isopath\\\" \[Rule] \\\"SignalAttitudeControl.svg\\\"\\)\\), \
\\(\\(\\\"iconrotation\\\" \[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \
\[Rule] \\\"SignalAttitudeControl.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\
\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \\(\\({\
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
0.08333333333333333`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\
\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"phiref\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
0.16666666666666666`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\
\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"thetaref\\\"\
\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 12 \
\[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \
\\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.8\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \
\\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \
\[Rule] \\\"urud\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \\(\\({\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"SignalAttitudeControl\\\"\\)\\), \\(\\(\\\"displayname\\\" \
\[Rule] \\\"SignalAttitudeControl\\\"\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"SignalAttitudeControl.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \
\[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalAttitudeControl.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.08333333333333333`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"phiref\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\
\[LeftSkeleton] 13 \[RightSkeleton]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.8\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"urud\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] is not a list of contents. The third item in an XMLElement must be \
a list of contents, even if it is an empty list. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5740558854752584`*^9, {3.5740569137570763`*^9, 3.574056915004201*^9}, 
   3.5740599985705457`*^9, 3.5740600664073286`*^9, 3.5740608054942303`*^9, 
   3.574061560260485*^9, 3.5769483039215775`*^9, {3.5771612910446825`*^9, 
   3.577161295983965*^9}, 3.577161465184643*^9, {3.577161605788685*^9, 
   3.5771616142321672`*^9}, 3.577450612358286*^9, 3.577452406951746*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5740558854752584`*^9, {3.5740569137570763`*^9, 3.574056915004201*^9}, 
   3.5740599985705457`*^9, 3.5740600664073286`*^9, 3.5740608054942303`*^9, 
   3.574061560260485*^9, 3.5769483039215775`*^9, {3.5771612910446825`*^9, 
   3.577161295983965*^9}, 3.577161465184643*^9, {3.577161605788685*^9, 
   3.5771616142321672`*^9}, 3.577450612358286*^9, 3.577452406953746*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.08333333333333333`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.08333333333333333`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5740558854752584`*^9, {3.5740569137570763`*^9, 3.574056915004201*^9}, 
   3.5740599985705457`*^9, 3.5740600664073286`*^9, 3.5740608054942303`*^9, 
   3.574061560260485*^9, 3.5769483039215775`*^9, {3.5771612910446825`*^9, 
   3.577161295983965*^9}, 3.577161465184643*^9, {3.577161605788685*^9, 
   3.5771616142321672`*^9}, 3.577450612358286*^9, 3.577452406953746*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5740558854752584`*^9, {3.5740569137570763`*^9, 3.574056915004201*^9}, 
   3.5740599985705457`*^9, 3.5740600664073286`*^9, 3.5740608054942303`*^9, 
   3.574061560260485*^9, 3.5769483039215775`*^9, {3.5771612910446825`*^9, 
   3.577161295983965*^9}, 3.577161465184643*^9, {3.577161605788685*^9, 
   3.5771616142321672`*^9}, 3.577450612358286*^9, 3.5774524069547462`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.16666666666666666`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.16666666666666666`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5740558854752584`*^9, {3.5740569137570763`*^9, 3.574056915004201*^9}, 
   3.5740599985705457`*^9, 3.5740600664073286`*^9, 3.5740608054942303`*^9, 
   3.574061560260485*^9, 3.5769483039215775`*^9, {3.5771612910446825`*^9, 
   3.577161295983965*^9}, 3.577161465184643*^9, {3.577161605788685*^9, 
   3.5771616142321672`*^9}, 3.577450612358286*^9, 3.577452406955746*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5740558854752584`*^9, {3.5740569137570763`*^9, 3.574056915004201*^9}, 
   3.5740599985705457`*^9, 3.5740600664073286`*^9, 3.5740608054942303`*^9, 
   3.574061560260485*^9, 3.5769483039215775`*^9, {3.5771612910446825`*^9, 
   3.577161295983965*^9}, 3.577161465184643*^9, {3.577161605788685*^9, 
   3.5771616142321672`*^9}, 3.577450612358286*^9, 3.5774524069577465`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5740558854752584`*^9, {3.5740569137570763`*^9, 3.574056915004201*^9}, 
   3.5740599985705457`*^9, 3.5740600664073286`*^9, 3.5740608054942303`*^9, 
   3.574061560260485*^9, 3.5769483039215775`*^9, {3.5771612910446825`*^9, 
   3.577161295983965*^9}, 3.577161465184643*^9, {3.577161605788685*^9, 
   3.5771616142321672`*^9}, 3.577450612358286*^9, 3.577452406963747*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.25`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.25`\\)\[NoBreak] is not a valid value for \
an attribute in an XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5740558854752584`*^9, {3.5740569137570763`*^9, 3.574056915004201*^9}, 
   3.5740599985705457`*^9, 3.5740600664073286`*^9, 3.5740608054942303`*^9, 
   3.574061560260485*^9, 3.5769483039215775`*^9, {3.5771612910446825`*^9, 
   3.577161295983965*^9}, 3.577161465184643*^9, {3.577161605788685*^9, 
   3.5771616142321672`*^9}, 3.577450612358286*^9, 3.577452406971748*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5740558854752584`*^9, {3.5740569137570763`*^9, 3.574056915004201*^9}, 
   3.5740599985705457`*^9, 3.5740600664073286`*^9, 3.5740608054942303`*^9, 
   3.574061560260485*^9, 3.5769483039215775`*^9, {3.5771612910446825`*^9, 
   3.577161295983965*^9}, 3.577161465184643*^9, {3.577161605788685*^9, 
   3.5771616142321672`*^9}, 3.577450612358286*^9, 3.577452406972748*^9}],

Cell[BoxData["\<\"SignalAttitudeControl.xml\"\>"], "Output",
 CellChangeTimes->{
  3.5341355259375*^9, 3.5346518395*^9, 3.574055885523263*^9, {
   3.5740569137710776`*^9, 3.574056915015202*^9}, 3.574059998584547*^9, 
   3.574060066493337*^9, 3.5740608055092316`*^9, 3.5740615602754836`*^9, 
   3.5769483039355783`*^9, {3.5771612911156864`*^9, 3.5771612959919653`*^9}, 
   3.5771614651976433`*^9, {3.577161605810686*^9, 3.577161614253169*^9}, 
   3.5774506123692865`*^9, 3.577452406972748*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["AttitudeTVCcontrol", "Section",
 CellChangeTimes->{{3.520873963671875*^9, 3.520873967265625*^9}, {
  3.541132435469144*^9, 3.541132437219043*^9}, {3.5682331515180693`*^9, 
  3.568233154969267*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Signal\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<AttitudeTVCcontrol\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Attitude control unit for an aircraft\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentSignal\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.520874016125*^9, 3.520874068265625*^9}, {
   3.52087448028125*^9, 3.52087450728125*^9}, 3.52087996896875*^9, {
   3.520880203578125*^9, 3.52088022325*^9}, {3.520932119625*^9, 
   3.5209321425*^9}, 3.5209322290625*^9, {3.520932736140625*^9, 
   3.520932737640625*^9}, 3.522342782453125*^9, {3.5256245293125*^9, 
   3.52562454328125*^9}, {3.526016819973899*^9, 3.5260168209582806`*^9}, {
   3.5682331616946516`*^9, 3.568233168555044*^9}, 3.57650971063836*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thetaref", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Reference signal tip\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "psiref", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Reference signal yaw\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "phi", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<roll angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "theta", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<tipp angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "psi", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<yaw angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Qb", ",", "0.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<tip angle rate\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Rb", ",", "0.", ",", "double", ",", "\"\<rad/s\>\"", ",", 
       "\"\<yaw angle rate\>\""}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.520874548453125*^9, 3.520874548453125*^9}, {
   3.520874718671875*^9, 3.520874721046875*^9}, {3.520874755734375*^9, 
   3.520874766015625*^9}, {3.534151799828125*^9, 3.53415180021875*^9}, {
   3.541132456749168*^9, 3.5411324582022095`*^9}, {3.568233613386487*^9, 
   3.5682336369468346`*^9}, 3.568234801225427*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Kelev", ",", "4.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Gain tip, default\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Krud", ",", "1.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Gain yaw, default\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "KQrud", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Gain tip rate, default\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "KRrud", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Gain yaw rate, default\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"umin", ",", 
       RowBox[{"-", ".9"}], ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Minium output signal roll\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "umax", ",", ".9", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Maximum output signal roll\>\""}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.520874584265625*^9, 3.520874584265625*^9}, {
   3.520874721515625*^9, 3.5208747834375*^9}, {3.52562634321875*^9, 
   3.5256264030625*^9}, 3.5261184740790405`*^9, {3.534151810859375*^9, 
   3.534151811265625*^9}, {3.5363116760362206`*^9, 3.5363116829580956`*^9}, {
   3.541132473795061*^9, 3.5411324745293937`*^9}, 3.5682331863300605`*^9, {
   3.568233441160636*^9, 3.568233475835619*^9}, {3.5682335533470526`*^9, 
   3.568233566922829*^9}, 3.568233864638858*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "uelev", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<elevator\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "urud", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<rudder\>\""}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.520874568515625*^9, 3.520874568515625*^9}, {
   3.52087472571875*^9, 3.520874753328125*^9}, {3.520874792546875*^9, 
   3.520874801671875*^9}, 3.5682334331201763`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"yelevexpr", " ", "=", " ", 
   RowBox[{"Kelev", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"diffAngle", "[", 
       RowBox[{"thetaref", ",", "theta"}], "]"}], "-", 
      RowBox[{"KQrud", " ", "Qb"}]}], " ", ")"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"yrudexpr", "   ", "=", "  ", 
   RowBox[{"Krud", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"diffAngle", "[", 
       RowBox[{"psiref", ",", "psi"}], "]"}], " ", "-", 
      RowBox[{"KRrud", " ", "Rb"}]}], ")"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.520874640046875*^9, 3.520874692546875*^9, {3.5209330574375*^9, 
   3.520933060859375*^9}, 3.525580570849698*^9, {3.53413054015625*^9, 
   3.5341305480625*^9}, {3.534151750078125*^9, 3.534151759390625*^9}, {
   3.5411325060900755`*^9, 3.5411325068712807`*^9}, {3.561710131810504*^9, 
   3.56171013497182*^9}, {3.561711077350048*^9, 3.5617110826935825`*^9}, {
   3.561713646190921*^9, 3.5617136585041523`*^9}, {3.5617138945097504`*^9, 
   3.5617138960869083`*^9}, 3.561713940943393*^9, {3.5682332892719483`*^9, 
   3.568233380330157*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"uelev", ",", 
       RowBox[{"limit", "[", 
        RowBox[{"yelevexpr", ",", "umin", ",", "umax"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"{", 
      RowBox[{"urud", ",", 
       RowBox[{"limit", "[", 
        RowBox[{"yrudexpr", ",", "umin", ",", "umax"}], "]"}]}], "}"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.520874644515625*^9, 3.5208746525*^9}, {
   3.5208746850625*^9, 3.520874689984375*^9}, 3.520932942234375*^9, 
   3.536319993245064*^9, 3.5411325146833305`*^9, 3.5682334073367014`*^9, {
   3.568233516220929*^9, 3.5682335328128786`*^9}, {3.5682335690499506`*^9, 
   3.568233574317252*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input",
 CellChangeTimes->{{3.520938682*^9, 3.520938682484375*^9}, {
  3.5411325204486237`*^9, 3.5411325215110626`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\\"SignalAttitudeTVCcontrol\\\"\\)\\), \
\\(\\(\\\"displayname\\\" \[Rule] \\(\\(\\\"Si\\\" \[Ellipsis] \
\\\"ol\\\"\\)\\)\\)\\)}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \
\\(\\({\\(\\(\\\"isopath\\\" \[Rule] \
\\\"SignalAttitudeTVCcontrol.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \
\[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalAttitudeTVCcontrol.svg\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \
\\(\\({}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\
\\\"x\\\" \[Rule] 0.125`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"thetaref\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\
\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] 0.25`\\)\\), \
\\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \
\\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"psiref\\\"\\)\\)}\\)\\), \\(\
\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 6 \[RightSkeleton]\\)\\), \\(\
\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.666667\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"urud\
\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\(\\(\\\"\\\" \[Ellipsis] \\\"\\\"\\)\\) \[Rule] \
\\(\\(\[LeftSkeleton] 5 \[RightSkeleton]\\)\\)}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\), \\(\\(\\(\\(\\\"d\\\" \[Ellipsis] \\\"me\\\"\\)\\) \
\[Rule] \\(\\(\\\"\\\" \[Ellipsis] \\\"\\\"\\)\\)\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"SignalAttitudeTVCcontrol.svg\\\"\\)\\), \
\\(\\(\\\"iconrotation\\\" \[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \
\[Rule] \\\"SignalAttitudeTVCcontrol.svg\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \
\\(\\({}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\
\\\"x\\\" \[Rule] 0.125`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"thetaref\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\
\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] 0.25`\\)\\), \
\\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \
\\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"psiref\\\"\\)\\)}\\)\\), \\(\
\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 6 \[RightSkeleton]\\)\\), \\(\
\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.666667\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"urud\
\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] is not a list of contents. The third item in an XMLElement must be \
a list of contents, even if it is an empty list. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483040455847`*^9, {3.577161291221692*^9, 3.57716129607297*^9}, 
   3.5771614652866488`*^9, {3.5771616059066916`*^9, 3.5771616143351736`*^9}, 
   3.5774506125043*^9, 3.577452407113762*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483040455847`*^9, {3.577161291221692*^9, 3.57716129607297*^9}, 
   3.5771614652866488`*^9, {3.5771616059066916`*^9, 3.5771616143351736`*^9}, 
   3.5774506125043*^9, 3.5774524071147623`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.125`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.125`\\)\[NoBreak] is not a valid value \
for an attribute in an XMLElement. The value of the attribute must be a \
string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483040455847`*^9, {3.577161291221692*^9, 3.57716129607297*^9}, 
   3.5771614652866488`*^9, {3.5771616059066916`*^9, 3.5771616143351736`*^9}, 
   3.5774506125043*^9, 3.577452407115762*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483040455847`*^9, {3.577161291221692*^9, 3.57716129607297*^9}, 
   3.5771614652866488`*^9, {3.5771616059066916`*^9, 3.5771616143351736`*^9}, 
   3.5774506125043*^9, 3.577452407116762*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.25`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.25`\\)\[NoBreak] is not a valid value for \
an attribute in an XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483040455847`*^9, {3.577161291221692*^9, 3.57716129607297*^9}, 
   3.5771614652866488`*^9, {3.5771616059066916`*^9, 3.5771616143351736`*^9}, 
   3.5774506125043*^9, 3.5774524071177626`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483040455847`*^9, {3.577161291221692*^9, 3.57716129607297*^9}, 
   3.5771614652866488`*^9, {3.5771616059066916`*^9, 3.5771616143351736`*^9}, 
   3.5774506125043*^9, 3.5774524071187625`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483040455847`*^9, {3.577161291221692*^9, 3.57716129607297*^9}, 
   3.5771614652866488`*^9, {3.5771616059066916`*^9, 3.5771616143351736`*^9}, 
   3.5774506125043*^9, 3.5774524071187625`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.375`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.375`\\)\[NoBreak] is not a valid value \
for an attribute in an XMLElement. The value of the attribute must be a \
string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483040455847`*^9, {3.577161291221692*^9, 3.57716129607297*^9}, 
   3.5771614652866488`*^9, {3.5771616059066916`*^9, 3.5771616143351736`*^9}, 
   3.5774506125043*^9, 3.5774524071197624`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483040455847`*^9, {3.577161291221692*^9, 3.57716129607297*^9}, 
   3.5771614652866488`*^9, {3.5771616059066916`*^9, 3.5771616143351736`*^9}, 
   3.5774506125043*^9, 3.577452407120763*^9}],

Cell[BoxData["\<\"SignalAttitudeTVCcontrol.xml\"\>"], "Output",
 CellChangeTimes->{
  3.5341355259375*^9, 3.5346518395*^9, 3.5547157258337374`*^9, 
   3.5617101865269747`*^9, 3.561710524640783*^9, 3.561713952497548*^9, 
   3.5682336616242456`*^9, 3.568233869998164*^9, 3.568234833731286*^9, 
   3.575630512104656*^9, 3.575644774010792*^9, 3.5769483040515842`*^9, {
   3.5771612912316933`*^9, 3.57716129608197*^9}, 3.577161465292649*^9, {
   3.577161605912692*^9, 3.577161614341174*^9}, 3.5774506125173016`*^9, 
   3.577452407120763*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Subtract Angle", "Section",
 CellChangeTimes->{{3.520873963671875*^9, 3.520873967265625*^9}, {
  3.541132435469144*^9, 3.541132437219043*^9}, {3.5682331515180693`*^9, 
  3.568233154969267*^9}, {3.569437621137436*^9, 3.5694376315190296`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Signal\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<SubtractAngle\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Subtract angles from each other\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentSignal\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.520874016125*^9, 3.520874068265625*^9}, {
   3.52087448028125*^9, 3.52087450728125*^9}, 3.52087996896875*^9, {
   3.520880203578125*^9, 3.52088022325*^9}, {3.520932119625*^9, 
   3.5209321425*^9}, 3.5209322290625*^9, {3.520932736140625*^9, 
   3.520932737640625*^9}, 3.522342782453125*^9, {3.5256245293125*^9, 
   3.52562454328125*^9}, {3.526016819973899*^9, 3.5260168209582806`*^9}, {
   3.5682331616946516`*^9, 3.568233168555044*^9}, {3.569437642125636*^9, 
   3.569437662108779*^9}, 3.576509718106787*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "theta1", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Angle 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "theta2", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Angle 2\>\""}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.520874548453125*^9, 3.520874548453125*^9}, {
   3.520874718671875*^9, 3.520874721046875*^9}, {3.520874755734375*^9, 
   3.520874766015625*^9}, {3.534151799828125*^9, 3.53415180021875*^9}, {
   3.541132456749168*^9, 3.5411324582022095`*^9}, {3.568233613386487*^9, 
   3.5682336369468346`*^9}, 3.568234801225427*^9, {3.5694376738834524`*^9, 
   3.5694377065633216`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
     "thetadiff", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
      "\"\<diff angle\>\""}], "}"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.520874568515625*^9, 3.520874568515625*^9}, {
   3.52087472571875*^9, 3.520874753328125*^9}, {3.520874792546875*^9, 
   3.520874801671875*^9}, 3.5682334331201763`*^9, {3.569437719159042*^9, 
   3.569437738404143*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"thetadiff", " ", "=", " ", 
   RowBox[{"diffAngle", "[", 
    RowBox[{"theta1", ",", "theta2"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.520874640046875*^9, 3.520874692546875*^9, {3.5209330574375*^9, 
   3.520933060859375*^9}, 3.525580570849698*^9, {3.53413054015625*^9, 
   3.5341305480625*^9}, {3.534151750078125*^9, 3.534151759390625*^9}, {
   3.5411325060900755`*^9, 3.5411325068712807`*^9}, {3.561710131810504*^9, 
   3.56171013497182*^9}, {3.561711077350048*^9, 3.5617110826935825`*^9}, {
   3.561713646190921*^9, 3.5617136585041523`*^9}, {3.5617138945097504`*^9, 
   3.5617138960869083`*^9}, 3.561713940943393*^9, {3.5682332892719483`*^9, 
   3.568233380330157*^9}, {3.5694377469506316`*^9, 3.569437773622157*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input",
 CellChangeTimes->{{3.520938682*^9, 3.520938682484375*^9}, {
  3.5411325204486237`*^9, 3.5411325215110626`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\(\\(\\\"Sign\\\" \[Ellipsis] \\\"ngle\
\\\"\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"SignalSubtractAngle.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \
\[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalSubtractAngle.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.3333333333333333`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"theta1\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
0.6666666666666666`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"theta2\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.5\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"diffAngle[theta1, \
theta2]\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\
\\)\\)\\)]\\)\[NoBreak] in \[NoBreak]\\!\\(XMLElement[\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\)]\\)\[NoBreak] is not a list of contents. The third \
item in an XMLElement must be a list of contents, even if it is an empty \
list. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483041355896`*^9, {3.5771612913096976`*^9, 3.5771612961449738`*^9}, 
   3.577161465367653*^9, {3.5771616059796953`*^9, 3.577161614409178*^9}, 
   3.5774506126103106`*^9, 3.5774524072297735`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483041355896`*^9, {3.5771612913096976`*^9, 3.5771612961449738`*^9}, 
   3.577161465367653*^9, {3.5771616059796953`*^9, 3.577161614409178*^9}, 
   3.5774506126103106`*^9, 3.577452407231774*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.3333333333333333`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.3333333333333333`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483041355896`*^9, {3.5771612913096976`*^9, 3.5771612961449738`*^9}, 
   3.577161465367653*^9, {3.5771616059796953`*^9, 3.577161614409178*^9}, 
   3.5774506126103106`*^9, 3.577452407232774*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483041355896`*^9, {3.5771612913096976`*^9, 3.5771612961449738`*^9}, 
   3.577161465367653*^9, {3.5771616059796953`*^9, 3.577161614409178*^9}, 
   3.5774506126103106`*^9, 3.577452407233774*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.6666666666666666`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.6666666666666666`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483041355896`*^9, {3.5771612913096976`*^9, 3.5771612961449738`*^9}, 
   3.577161465367653*^9, {3.5771616059796953`*^9, 3.577161614409178*^9}, 
   3.5774506126103106`*^9, 3.577452407234774*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483041355896`*^9, {3.5771612913096976`*^9, 3.5771612961449738`*^9}, 
   3.577161465367653*^9, {3.5771616059796953`*^9, 3.577161614409178*^9}, 
   3.5774506126103106`*^9, 3.577452407235774*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483041355896`*^9, {3.5771612913096976`*^9, 3.5771612961449738`*^9}, 
   3.577161465367653*^9, {3.5771616059796953`*^9, 3.577161614409178*^9}, 
   3.5774506126103106`*^9, 3.5774524072367744`*^9}],

Cell[BoxData["\<\"SignalSubtractAngle.xml\"\>"], "Output",
 CellChangeTimes->{
  3.5341355259375*^9, 3.5346518395*^9, 3.5547157258337374`*^9, 
   3.5617101865269747`*^9, 3.561710524640783*^9, 3.561713952497548*^9, 
   3.5682336616242456`*^9, 3.568233869998164*^9, 3.568234833731286*^9, {
   3.5694383844720955`*^9, 3.5694383967787995`*^9}, 3.5756305121716623`*^9, 
   3.5756447740627947`*^9, 3.5769483041405897`*^9, {3.5771612913156977`*^9, 
   3.5771612961519747`*^9}, 3.577161465374654*^9, {3.577161605984696*^9, 
   3.5771616144151783`*^9}, 3.577450612615311*^9, 3.5774524072367744`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Mission Controller", "Section",
 PageWidth->WindowWidth,
 CellChangeTimes->{{3.4464606636627417`*^9, 3.4464606852542763`*^9}, {
   3.4464607234102488`*^9, 3.4464607249246225`*^9}, 3.446741120140625*^9, {
   3.447510244140625*^9, 3.447510251796875*^9}, 3.4475750579871836`*^9, 
   3.540100342846898*^9}],

Cell["\<\
The global input variables are those variables that are inputs to the \
component but  are not passed thrrough the nodes.\
\>", "Text",
 PageWidth->WindowWidth],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Signal\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<WaypointController\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Waypoint Controller with way points\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentSignal\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.520880152296875*^9, 3.520880230078125*^9}, 
   3.520932125875*^9, 3.520932753984375*^9, {3.52093324790625*^9, 
   3.520933251453125*^9}, {3.521775289609375*^9, 3.521775289921875*^9}, {
   3.52249560790625*^9, 3.522495611953125*^9}, {3.5353435506144285`*^9, 
   3.5353435625103617`*^9}, {3.538982066538947*^9, 3.5389820811170716`*^9}, {
   3.538982378538947*^9, 3.538982399913947*^9}, 3.5765097389729805`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "s1", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "s2", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 2\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "s3", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 3\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "s4", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 4\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "s5", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 5\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "s6", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 6\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "s7", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 7\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "s8", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 8\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "s9", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 9\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "s10", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 10\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xc", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "yc", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<y-position\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.446223460296875*^9, 3.44622356096875*^9}, {
   3.4462236030625*^9, 3.446223670484375*^9}, {3.446223703640625*^9, 
   3.4462238429375*^9}, {3.4462265591875*^9, 3.44622670078125*^9}, {
   3.4463566622546744`*^9, 3.4463566920669837`*^9}, 3.4463567240041475`*^9, {
   3.446357070530962*^9, 3.446357073718421*^9}, 3.446379656956832*^9, {
   3.4464008796202064`*^9, 3.44640090863546*^9}, {3.446452519793661*^9, 
   3.446452619136775*^9}, {3.446460814522464*^9, 3.446460921949324*^9}, {
   3.446460972761937*^9, 3.4464609779947715`*^9}, {3.446461042663227*^9, 
   3.4464610541442213`*^9}, {3.446522488390625*^9, 3.446522516109375*^9}, {
   3.446522610078125*^9, 3.446522622265625*^9}, {3.44652284971875*^9, 
   3.446522850484375*^9}, 3.446524524569768*^9, {3.44657946146875*^9, 
   3.44657946196875*^9}, {3.446637579390625*^9, 3.446637622890625*^9}, {
   3.44663767678125*^9, 3.446637762140625*^9}, {3.446741331921875*^9, 
   3.446741411921875*^9}, {3.4467425738125*^9, 3.446742751625*^9}, {
   3.44674492665625*^9, 3.446744933046875*^9}, 3.446747299859375*^9, {
   3.446834626125*^9, 3.446834892703125*^9}, {3.446834927984375*^9, 
   3.4468349860625*^9}, 3.446835489578125*^9, {3.447510352625*^9, 
   3.447510472859375*^9}, {3.44751067409375*^9, 3.447510704984375*^9}, {
   3.447510735484375*^9, 3.447510761828125*^9}, {3.447510805046875*^9, 
   3.447510816484375*^9}, 3.44751085640625*^9, 3.447603182109375*^9, {
   3.538980896351447*^9, 3.538980896882697*^9}, {3.538981183570197*^9, 
   3.5389812494920716`*^9}, {3.5389822003045716`*^9, 
   3.5389822028670716`*^9}, {3.538986645364492*^9, 3.5389866618487616`*^9}, {
   3.5389891590002813`*^9, 3.5389891657659063`*^9}, {3.5389892010002813`*^9, 
   3.5389892017346563`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "R", ",", "6367500.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Earth radius\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp0", ",", "15.63", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<1st waypoint x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp0", ",", "57.41", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<1st waypoint y-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alt1", ",", "0", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<altitude 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "v1", ",", "200", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<ref. velocity 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp1", ",", "15.1669", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<1st waypoint x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp1", ",", "58.3812", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<1st waypoint y-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alt2", ",", "1000", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<altitude 2\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "v2", ",", "200", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<ref. velocity 2\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp2", ",", "16.8844", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<2st waypoint x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp2", ",", "58.0408", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<2st waypoint y-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alt3", ",", "200", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<altitude 3\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "v3", ",", "200", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<ref. velocity 3\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp3", ",", "21.5", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<3rd waypoint x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp3", ",", "58.", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<3rd waypoint y-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alt4", ",", "200", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<altitude 4\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "v4", ",", "200", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<ref. velocity 4\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp4", ",", "22.5", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<4th waypoint x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp4", ",", "58", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<4th waypoint y-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alt5", ",", "200", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<altitude 5\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "v5", ",", "200", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<ref. velocity 5\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp5", ",", "22.5", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<5th waypoint x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp5", ",", "59.3", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<5th waypoint y-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alt6", ",", "1000", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<altitude 6\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "v6", ",", "200", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<ref. velocity 6\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp6", ",", "20.7", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<6th waypoint x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp6", ",", "59.6", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<6th waypoint y-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alt7", ",", "1000", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<altitude 7\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "v7", ",", "200", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<ref. velocity 7\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp7", ",", "18.4", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<7th waypoint x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp7", ",", "58.5", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<7th waypoint y-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alt8", ",", "1000", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<altitude 8\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "v8", ",", "150", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<ref. velocity 8\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp8", ",", "15.62540", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<8th waypoint x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp8", ",", "58.473", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<8th waypoint y-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alt9", ",", "0", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<altitude 9\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "v9", ",", "0", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<ref. velocity 9\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp9", ",", "15.6254", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<9th waypoint x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp9", ",", "58.4228", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<9th waypoint y-position\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.447510830078125*^9, 3.44751083565625*^9}, {
   3.4475108769375*^9, 3.447510899515625*^9}, {3.447602234390625*^9, 
   3.44760241884375*^9}, {3.5389808973358216`*^9, 3.5389809088045716`*^9}, {
   3.540299841336206*^9, 3.5402998947105227`*^9}, {3.54030034670111*^9, 
   3.540300353247817*^9}, {3.5403003964185867`*^9, 3.5403003976216807`*^9}, {
   3.5403004813382874`*^9, 3.5403004814632845`*^9}, {3.540300521993497*^9, 
   3.5403005797420187`*^9}, {3.5403006240065107`*^9, 
   3.5403007770089912`*^9}, {3.5403008357136188`*^9, 3.540300860057992*^9}, 
   3.5403010668564873`*^9, {3.5405282925839195`*^9, 3.5405282933651495`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "set1", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<set state\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "set2", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<set state\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "set3", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<set state\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "set4", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<set state\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "set5", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<set state\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "set6", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<set state\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "set7", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<set state\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "set8", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<set state\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "set9", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<set state\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "altitudeRef", ",", "1000.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<reference altitude\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "headingRef", ",", "1000.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<reference heading\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "velocityRef", ",", "1000.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<reference velocity\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.446223415796875*^9, 3.44622341625*^9}, {
   3.446226723234375*^9, 3.446226798453125*^9}, {3.446522549734375*^9, 
   3.4465225531875*^9}, {3.44652258853125*^9, 3.44652273034375*^9}, 
   3.44652281059375*^9, {3.446621606296875*^9, 3.446621667125*^9}, {
   3.446621712171875*^9, 3.446621755359375*^9}, 3.446621793125*^9, {
   3.44674142409375*^9, 3.44674143390625*^9}, 3.446747302765625*^9, {
   3.446834900828125*^9, 3.44683492328125*^9}, {3.447510302828125*^9, 
   3.447510331328125*^9}, {3.4475981338125*^9, 3.447598192421875*^9}, {
   3.538980909382697*^9, 3.538980914038947*^9}, {3.5389812739608216`*^9, 
   3.538981316663947*^9}, {3.538982180538947*^9, 3.538982188507697*^9}, 
   3.538986625723993*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d2r", "=", 
  FractionBox[
   RowBox[{"N", "[", 
    RowBox[{"Pi", ",", "6"}], "]"}], "180"]}]], "Input",
 CellChangeTimes->{{3.5402959560398293`*^9, 3.5402959714868135`*^9}}],

Cell[BoxData["0.01745329251994329576923690768488613444`6."], "Output",
 CellChangeTimes->{
  3.540296042342821*^9, 3.5402960830709543`*^9, 3.5405265236283913`*^9, 
   3.5405283355828185`*^9, 3.54053090268988*^9, 3.540534765502161*^9, 
   3.5405442676051855`*^9, 3.540557883511408*^9, 3.5547157263180013`*^9, 
   3.5682338708612137`*^9, 3.5682348344673285`*^9, 3.575630512585704*^9, 
   3.5756447744318156`*^9, 3.576948304224594*^9, {3.5771612913777013`*^9, 
   3.5771612962049775`*^9}, 3.577161465436657*^9, {3.5771616060527*^9, 
   3.5771616144731817`*^9}, 3.5774506126943192`*^9, 3.577452407321783*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"r2d", "=", 
  FractionBox["180", 
   RowBox[{"N", "[", 
    RowBox[{"Pi", ",", "6"}], "]"}]]}]], "Input",
 CellChangeTimes->{{3.540296022924648*^9, 3.5402960391064587`*^9}}],

Cell[BoxData["57.2957795130823208767981548141051463364`6."], "Output",
 CellChangeTimes->{
  3.5402960447192802`*^9, 3.5402960831022234`*^9, 3.540526523784624*^9, 
   3.540528335598443*^9, 3.540530902705505*^9, 3.540534765533412*^9, 
   3.5405442676208105`*^9, 3.540557883839528*^9, 3.554715726349244*^9, 
   3.5682338708982153`*^9, 3.5682348345013304`*^9, 3.575630512605706*^9, 
   3.575644774450817*^9, 3.576948304252596*^9, {3.577161291399703*^9, 
   3.5771612962239785`*^9}, 3.5771614654596586`*^9, {3.5771616060747013`*^9, 
   3.577161614495183*^9}, 3.5774506127283225`*^9, 3.577452407352786*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"xWp10", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"xcWp1", "-", "xcWp0"}], ")"}], "2"], 
      SuperscriptBox["R", "2"]}], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"ycWp1", "-", "ycWp0"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"position1", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xc", "-", "xcWp0"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"yc", "-", "ycWp0"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"head0", "=", 
    RowBox[{"Atan2L", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ycWp1", "-", "yc"}], ")"}], "R"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xcWp1", "-", "xc"}], ")"}], "R", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"d2r", " ", "yc"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xWp21", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xcWp2", "-", "xcWp1"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"ycWp2", "-", "ycWp1"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"position2", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xc", "-", "xcWp1"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"yc", "-", "ycWp1"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"head1", "=", 
    RowBox[{"Atan2L", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ycWp2", "-", "yc"}], ")"}], "R"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xcWp2", "-", "xc"}], ")"}], "R", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"d2r", " ", "yc"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xWp32", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xcWp3", "-", "xcWp2"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"ycWp3", "-", "ycWp2"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"position3", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xc", "-", "xcWp2"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"yc", "-", "ycWp2"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"head2", "=", 
    RowBox[{"Atan2L", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ycWp3", "-", "yc"}], ")"}], "R"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xcWp3", "-", "xc"}], ")"}], "R", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"d2r", " ", "yc"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xWp43", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xcWp4", "-", "xcWp3"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"ycWp4", "-", "ycWp3"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"position4", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xc", "-", "xcWp3"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"yc", "-", "ycWp3"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"head3", "=", 
    RowBox[{"Atan2L", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ycWp4", "-", "yc"}], ")"}], "R"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xcWp4", "-", "xc"}], ")"}], "R", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"d2r", " ", "yc"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xWp54", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xcWp5", "-", "xcWp4"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"ycWp5", "-", "ycWp4"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"position5", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xc", "-", "xcWp4"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"yc", "-", "ycWp4"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"head4", "=", 
    RowBox[{"Atan2L", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ycWp5", "-", "yc"}], ")"}], "R"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xcWp5", "-", "xc"}], ")"}], "R", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"d2r", " ", "yc"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xWp65", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xcWp6", "-", "xcWp5"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"ycWp6", "-", "ycWp5"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"position6", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xc", "-", "xcWp5"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"yc", "-", "ycWp5"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"head5", "=", 
    RowBox[{"Atan2L", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ycWp6", "-", "yc"}], ")"}], "R"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xcWp6", "-", "xc"}], ")"}], "R", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"d2r", " ", "yc"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xWp76", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xcWp7", "-", "xcWp6"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"ycWp7", "-", "ycWp6"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"position7", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xc", "-", "xcWp6"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"yc", "-", "ycWp6"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"head6", "=", 
    RowBox[{"Atan2L", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ycWp7", "-", "yc"}], ")"}], "R"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xcWp7", "-", "xc"}], ")"}], "R", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"d2r", " ", "yc"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xWp87", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xcWp8", "-", "xcWp7"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"ycWp8", "-", "ycWp7"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"position8", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xc", "-", "xcWp7"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"yc", "-", "ycWp7"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"head7", "=", 
    RowBox[{"Atan2L", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ycWp8", "-", "yc"}], ")"}], "R"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xcWp8", "-", "xc"}], ")"}], "R", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"d2r", " ", "yc"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xWp98", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xcWp9", "-", "xcWp8"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"ycWp9", "-", "ycWp8"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"position9", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xc", "-", "xcWp8"}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"yc", "-", "ycWp8"}], ")"}], "2"]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"head8", "=", 
   RowBox[{"Atan2L", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ycWp9", "-", "yc"}], ")"}], "R"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"xcWp9", "-", "xc"}], ")"}], "R", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"d2r", " ", "yc"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"head9", "=", 
   RowBox[{"Atan2L", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ycWp9", "-", "ycWp8"}], ")"}], "R"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"xcWp9", "-", "xcWp8"}], ")"}], "R", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"d2r", " ", "yc"}], "]"}]}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.446452638339777*^9, 3.4464527818076086`*^9}, 
   3.446452850459015*^9, {3.4464631607090783`*^9, 3.4464631828497033`*^9}, {
   3.4464634087559533`*^9, 3.4464634630059533`*^9}, 3.4464635408809533`*^9, {
   3.4464635848497033`*^9, 3.4464635915684533`*^9}, {3.4464636283809533`*^9, 
   3.4464636733028283`*^9}, {3.4464637086622033`*^9, 
   3.4464637303184533`*^9}, {3.446525470644552*^9, 3.446525515206767*^9}, {
   3.446622352859375*^9, 3.446622357625*^9}, {3.44666587075*^9, 
   3.446665888046875*^9}, {3.446666884390625*^9, 3.446666921765625*^9}, 
   3.446666958625*^9, {3.446667170421875*^9, 3.446667191203125*^9}, {
   3.446668162671875*^9, 3.446668165578125*^9}, {3.446668874546875*^9, 
   3.446668879*^9}, {3.446704056*^9, 3.446704195796875*^9}, 
   3.44670435046875*^9, {3.44670455921875*^9, 3.44670461946875*^9}, 
   3.446705553984375*^9, {3.446707892875*^9, 3.446707900703125*^9}, {
   3.4467083515*^9, 3.4467083814375*^9}, {3.446741457359375*^9, 
   3.446741576421875*^9}, {3.446741610890625*^9, 3.44674168228125*^9}, {
   3.4467417159375*^9, 3.44674171771875*^9}, {3.44674175265625*^9, 
   3.446742042609375*^9}, {3.446742414859375*^9, 3.44674242353125*^9}, {
   3.4468350029375*^9, 3.446835136421875*^9}, 3.447343461625*^9, {
   3.44750555559375*^9, 3.447505567140625*^9}, {3.447509747015625*^9, 
   3.447509802265625*^9}, {3.447518087296875*^9, 3.447518089640625*^9}, 
   3.44752085290625*^9, {3.44752238603125*^9, 3.447522408546875*^9}, {
   3.5389857278341665`*^9, 3.5389857349747915`*^9}, 3.5389865747711935`*^9, {
   3.538988947876569*^9, 3.5389889557358932`*^9}, {3.538989098141232*^9, 
   3.538989122094204*^9}, {3.5402999305068293`*^9, 3.540299995255586*^9}, 
   3.5403002257667055`*^9, {3.5403014115241156`*^9, 3.540301420180199*^9}, {
   3.5403017179731913`*^9, 3.5403017347236204`*^9}, 3.5403019165564003`*^9, {
   3.5405280084661927`*^9, 3.540528053215047*^9}, {3.5405281010419474`*^9, 
   3.540528219960778*^9}, {3.540530815627713*^9, 3.540530830502842*^9}, {
   3.5405343648939686`*^9, 3.540534402205991*^9}, {3.540544214744796*^9, 
   3.5405442454641356`*^9}, {3.540559001559596*^9, 3.540559006840779*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expressions", "=", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"set1", ",", 
      RowBox[{"onPositive", "[", 
       RowBox[{"(", 
        RowBox[{"position1", "-", "xWp10"}], ")"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"set2", ",", 
      RowBox[{"onPositive", "[", 
       RowBox[{"(", 
        RowBox[{"position2", "-", "xWp21"}], ")"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"set3", ",", 
      RowBox[{"onPositive", "[", 
       RowBox[{"(", 
        RowBox[{"position3", "-", "xWp32"}], ")"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"set4", ",", 
      RowBox[{"onPositive", "[", 
       RowBox[{"(", 
        RowBox[{"position4", "-", "xWp43"}], ")"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"set5", ",", 
      RowBox[{"onPositive", "[", 
       RowBox[{"(", 
        RowBox[{"position5", "-", "xWp54"}], ")"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"set6", ",", 
      RowBox[{"onPositive", "[", 
       RowBox[{"(", 
        RowBox[{"position6", "-", "xWp65"}], ")"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"set7", ",", 
      RowBox[{"onPositive", "[", 
       RowBox[{"(", 
        RowBox[{"position7", "-", "xWp76"}], ")"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"set8", ",", 
      RowBox[{"onPositive", "[", 
       RowBox[{"(", 
        RowBox[{"position8", "-", "xWp87"}], ")"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"set9", ",", 
      RowBox[{"onPositive", "[", 
       RowBox[{"(", 
        RowBox[{"position9", "-", "xWp98"}], ")"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"set10", ",", "0."}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"altitudeRef", ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"s1", " ", "alt1"}], "+", 
        RowBox[{"s2", " ", "alt2"}], "+", 
        RowBox[{"s3", " ", "alt3"}], "+", 
        RowBox[{"s4", " ", "alt4"}], "+", 
        RowBox[{"s5", " ", "alt5"}], "+", 
        RowBox[{"s6", " ", "alt6"}], "+", 
        RowBox[{"s7", " ", "alt7"}], "+", 
        RowBox[{"s8", " ", "alt8"}], "+", 
        RowBox[{"s9", " ", "alt9"}]}], ")"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"headingRef", ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"s1", " ", "head1"}], "+", 
        RowBox[{"s2", " ", "head2"}], "+", 
        RowBox[{"s3", " ", "head3"}], "+", 
        RowBox[{"s4", " ", "head4"}], "+", 
        RowBox[{"s5", " ", "head5"}], "+", 
        RowBox[{"s6", " ", "head6"}], "+", 
        RowBox[{"s7", " ", "head7"}], "+", 
        RowBox[{"s8", " ", "head8"}], "+", 
        RowBox[{"s9", " ", "head9"}]}], ")"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"velocityRef", ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"s1", " ", "v1"}], "+", 
        RowBox[{"s2", " ", "v2"}], "+", 
        RowBox[{"s3", " ", "v3"}], "+", 
        RowBox[{"s4", " ", "v4"}], "+", 
        RowBox[{"s5", " ", "v5"}], "+", 
        RowBox[{"s6", " ", "v6"}], "+", 
        RowBox[{"s7", " ", "v7"}], "+", 
        RowBox[{"s8", " ", "v8"}], "+", 
        RowBox[{"s9", " ", "v9"}]}], ")"}]}], "}"}]}], "\[IndentingNewLine]", 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.538980959601447*^9, 3.5389811518983216`*^9}, {
   3.538981699351447*^9, 3.538981711913947*^9}, {3.538982108538947*^9, 
   3.5389821468670716`*^9}, {3.538982445195197*^9, 3.5389824714920716`*^9}, 
   3.5389857465685415`*^9, 3.5389858448810415`*^9, {3.5389858878654165`*^9, 
   3.5389858906466665`*^9}, 3.5389859873185415`*^9, {3.5389861225372915`*^9, 
   3.5389861413029165`*^9}, {3.5389864473341665`*^9, 
   3.5389864935841665`*^9}, {3.538986543552644*^9, 3.5389865651618805`*^9}, {
   3.5389867534888*^9, 3.538986756879403*^9}, {3.5389888536740465`*^9, 
   3.5389888572521486`*^9}, {3.5389890403759766`*^9, 
   3.5389890852038145`*^9}, {3.5389891392190943`*^9, 3.538989145109681*^9}, {
   3.539191613515625*^9, 3.5391916643125*^9}, {3.539193119875*^9, 
   3.53919318265625*^9}, {3.5403002522504025`*^9, 3.540300284733946*^9}, 
   3.5405308840962486`*^9, {3.540557801449958*^9, 3.5405578394650965`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"set1", ",", 
     RowBox[{"onPositive", "[", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xcWp0"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "ycWp0"}], ")"}], "2"]}]], "-", 
       SqrtBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["R", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "xcWp0"}], "+", "xcWp1"}], ")"}], "2"]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ycWp0"}], "+", "ycWp1"}], ")"}], "2"]}]]}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"set2", ",", 
     RowBox[{"onPositive", "[", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xcWp1"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "ycWp1"}], ")"}], "2"]}]], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xcWp1"}], "+", "xcWp2"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ycWp1"}], "+", "ycWp2"}], ")"}], "2"]}]]}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"set3", ",", 
     RowBox[{"onPositive", "[", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xcWp2"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "ycWp2"}], ")"}], "2"]}]], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xcWp2"}], "+", "xcWp3"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ycWp2"}], "+", "ycWp3"}], ")"}], "2"]}]]}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"set4", ",", 
     RowBox[{"onPositive", "[", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xcWp3"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "ycWp3"}], ")"}], "2"]}]], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xcWp3"}], "+", "xcWp4"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ycWp3"}], "+", "ycWp4"}], ")"}], "2"]}]]}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"set5", ",", 
     RowBox[{"onPositive", "[", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xcWp4"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "ycWp4"}], ")"}], "2"]}]], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xcWp4"}], "+", "xcWp5"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ycWp4"}], "+", "ycWp5"}], ")"}], "2"]}]]}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"set6", ",", 
     RowBox[{"onPositive", "[", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xcWp5"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "ycWp5"}], ")"}], "2"]}]], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xcWp5"}], "+", "xcWp6"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ycWp5"}], "+", "ycWp6"}], ")"}], "2"]}]]}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"set7", ",", 
     RowBox[{"onPositive", "[", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xcWp6"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "ycWp6"}], ")"}], "2"]}]], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xcWp6"}], "+", "xcWp7"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ycWp6"}], "+", "ycWp7"}], ")"}], "2"]}]]}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"set8", ",", 
     RowBox[{"onPositive", "[", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xcWp7"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "ycWp7"}], ")"}], "2"]}]], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xcWp7"}], "+", "xcWp8"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ycWp7"}], "+", "ycWp8"}], ")"}], "2"]}]]}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"set9", ",", 
     RowBox[{"onPositive", "[", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xcWp8"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "ycWp8"}], ")"}], "2"]}]], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xcWp8"}], "+", "xcWp9"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ycWp8"}], "+", "ycWp9"}], ")"}], "2"]}]]}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"set10", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"altitudeRef", ",", 
     RowBox[{
      RowBox[{"alt1", " ", "s1"}], "+", 
      RowBox[{"alt2", " ", "s2"}], "+", 
      RowBox[{"alt3", " ", "s3"}], "+", 
      RowBox[{"alt4", " ", "s4"}], "+", 
      RowBox[{"alt5", " ", "s5"}], "+", 
      RowBox[{"alt6", " ", "s6"}], "+", 
      RowBox[{"alt7", " ", "s7"}], "+", 
      RowBox[{"alt8", " ", "s8"}], "+", 
      RowBox[{"alt9", " ", "s9"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"headingRef", ",", 
     RowBox[{
      RowBox[{"s1", " ", 
       RowBox[{"Atan2L", "[", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "yc"}], "+", "ycWp2"}], ")"}]}], ",", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xc"}], "+", "xcWp2"}], ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"0.01745329251994329576923690768488613444`6.", " ", "yc"}],
            "]"}]}]}], "]"}]}], "+", 
      RowBox[{"s2", " ", 
       RowBox[{"Atan2L", "[", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "yc"}], "+", "ycWp3"}], ")"}]}], ",", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xc"}], "+", "xcWp3"}], ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"0.01745329251994329576923690768488613444`6.", " ", "yc"}],
            "]"}]}]}], "]"}]}], "+", 
      RowBox[{"s3", " ", 
       RowBox[{"Atan2L", "[", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "yc"}], "+", "ycWp4"}], ")"}]}], ",", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xc"}], "+", "xcWp4"}], ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"0.01745329251994329576923690768488613444`6.", " ", "yc"}],
            "]"}]}]}], "]"}]}], "+", 
      RowBox[{"s4", " ", 
       RowBox[{"Atan2L", "[", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "yc"}], "+", "ycWp5"}], ")"}]}], ",", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xc"}], "+", "xcWp5"}], ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"0.01745329251994329576923690768488613444`6.", " ", "yc"}],
            "]"}]}]}], "]"}]}], "+", 
      RowBox[{"s5", " ", 
       RowBox[{"Atan2L", "[", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "yc"}], "+", "ycWp6"}], ")"}]}], ",", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xc"}], "+", "xcWp6"}], ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"0.01745329251994329576923690768488613444`6.", " ", "yc"}],
            "]"}]}]}], "]"}]}], "+", 
      RowBox[{"s6", " ", 
       RowBox[{"Atan2L", "[", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "yc"}], "+", "ycWp7"}], ")"}]}], ",", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xc"}], "+", "xcWp7"}], ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"0.01745329251994329576923690768488613444`6.", " ", "yc"}],
            "]"}]}]}], "]"}]}], "+", 
      RowBox[{"s7", " ", 
       RowBox[{"Atan2L", "[", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "yc"}], "+", "ycWp8"}], ")"}]}], ",", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xc"}], "+", "xcWp8"}], ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"0.01745329251994329576923690768488613444`6.", " ", "yc"}],
            "]"}]}]}], "]"}]}], "+", 
      RowBox[{"s8", " ", 
       RowBox[{"Atan2L", "[", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "yc"}], "+", "ycWp9"}], ")"}]}], ",", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xc"}], "+", "xcWp9"}], ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"0.01745329251994329576923690768488613444`6.", " ", "yc"}],
            "]"}]}]}], "]"}]}], "+", 
      RowBox[{"s9", " ", 
       RowBox[{"Atan2L", "[", 
        RowBox[{
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "ycWp8"}], "+", "ycWp9"}], ")"}]}], ",", 
         RowBox[{"R", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "xcWp8"}], "+", "xcWp9"}], ")"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"0.01745329251994329576923690768488613444`6.", " ", "yc"}],
            "]"}]}]}], "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"velocityRef", ",", 
     RowBox[{
      RowBox[{"s1", " ", "v1"}], "+", 
      RowBox[{"s2", " ", "v2"}], "+", 
      RowBox[{"s3", " ", "v3"}], "+", 
      RowBox[{"s4", " ", "v4"}], "+", 
      RowBox[{"s5", " ", "v5"}], "+", 
      RowBox[{"s6", " ", "v6"}], "+", 
      RowBox[{"s7", " ", "v7"}], "+", 
      RowBox[{"s8", " ", "v8"}], "+", 
      RowBox[{"s9", " ", "v9"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.538982363882697*^9, 3.5389824049295716`*^9, {3.538982455132697*^9, 
   3.5389824771170716`*^9}, {3.5389866682080956`*^9, 3.5389866906610775`*^9}, 
   3.5389867975666428`*^9, 3.538988282972872*^9, 3.5389892197815313`*^9, 
   3.539191692515625*^9, 3.5401003569251137`*^9, 3.540300331873364*^9, 
   3.5403004041527634`*^9, 3.5403008841367335`*^9, 3.540301072981448*^9, 
   3.540301930103622*^9, 3.5405283357546887`*^9, 3.5405309029398785`*^9, 
   3.540534765752166*^9, 3.5405442678083143`*^9, 3.540557884714517*^9, 
   3.55471572641173*^9, 3.5682338709652195`*^9, 3.5682348345473332`*^9, 
   3.575630512635709*^9, 3.5756447744878187`*^9, 3.5769483043045993`*^9, {
   3.577161291437705*^9, 3.5771612962559805`*^9}, 3.5771614654986606`*^9, {
   3.577161606109703*^9, 3.5771616145291843`*^9}, 3.577450612776327*^9, 
   3.5774524074057913`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\\"SignalWaypointController\\\"\\)\\), \
\\(\\(\\\"displayname\\\" \[Rule] \
\\\"SignalWaypointController\\\"\\)\\)}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\
\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \[Rule] \
\\\"SignalWaypointController.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \
\[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalWaypointController.svg\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \
\\(\\({}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\
\\\"x\\\" \[Rule] 0.07692307692307693`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\
\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \
\[Rule] \\\"s1\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\
\[LeftSkeleton] 22 \[RightSkeleton]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.923077\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"velocityRef\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\(\\(\\\"\\\" \[Ellipsis] \\\"\\\"\\)\\) \[Rule] \\(\\(\\\"\\\" \
\[Ellipsis] \\\"\\\"\\)\\)}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"SignalWaypointController\\\"\\)\\), \\(\\(\\\"displayname\\\" \
\[Rule] \\(\\(\\\"Signa\\\" \[Ellipsis] \\\"roller\\\"\\)\\)\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"SignalWaypointController.svg\\\"\\)\\), \
\\(\\(\\\"iconrotation\\\" \[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \
\[Rule] \\\"SignalWaypointController.svg\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \
\\(\\({}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\
\\\"x\\\" \[Rule] 0.07692307692307693`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\
\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \
\[Rule] \\\"s1\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\
\[LeftSkeleton] 22 \[RightSkeleton]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.923077\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"velocityRef\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] is not a list of contents. The third item in an XMLElement must be \
a list of contents, even if it is an empty list. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483043466015`*^9, {3.5771612914817076`*^9, 3.5771612962939825`*^9}, 
   3.577161465539663*^9, {3.5771616061497054`*^9, 3.577161614570187*^9}, 
   3.577450612833333*^9, 3.577452407471798*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483043466015`*^9, {3.5771612914817076`*^9, 3.5771612962939825`*^9}, 
   3.577161465539663*^9, {3.5771616061497054`*^9, 3.577161614570187*^9}, 
   3.577450612833333*^9, 3.5774524074727983`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.07692307692307693`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.07692307692307693`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483043466015`*^9, {3.5771612914817076`*^9, 3.5771612962939825`*^9}, 
   3.577161465539663*^9, {3.5771616061497054`*^9, 3.577161614570187*^9}, 
   3.577450612833333*^9, 3.577452407473798*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483043466015`*^9, {3.5771612914817076`*^9, 3.5771612962939825`*^9}, 
   3.577161465539663*^9, {3.5771616061497054`*^9, 3.577161614570187*^9}, 
   3.577450612833333*^9, 3.577452407474798*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.15384615384615385`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.15384615384615385`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483043466015`*^9, {3.5771612914817076`*^9, 3.5771612962939825`*^9}, 
   3.577161465539663*^9, {3.5771616061497054`*^9, 3.577161614570187*^9}, 
   3.577450612833333*^9, 3.577452407475798*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483043466015`*^9, {3.5771612914817076`*^9, 3.5771612962939825`*^9}, 
   3.577161465539663*^9, {3.5771616061497054`*^9, 3.577161614570187*^9}, 
   3.577450612833333*^9, 3.577452407476798*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483043466015`*^9, {3.5771612914817076`*^9, 3.5771612962939825`*^9}, 
   3.577161465539663*^9, {3.5771616061497054`*^9, 3.577161614570187*^9}, 
   3.577450612833333*^9, 3.5774524074777985`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.23076923076923078`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.23076923076923078`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483043466015`*^9, {3.5771612914817076`*^9, 3.5771612962939825`*^9}, 
   3.577161465539663*^9, {3.5771616061497054`*^9, 3.577161614570187*^9}, 
   3.577450612833333*^9, 3.5774524074787984`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483043466015`*^9, {3.5771612914817076`*^9, 3.5771612962939825`*^9}, 
   3.577161465539663*^9, {3.5771616061497054`*^9, 3.577161614570187*^9}, 
   3.577450612833333*^9, 3.5774524074797983`*^9}],

Cell[BoxData["\<\"SignalWaypointController.xml\"\>"], "Output",
 CellChangeTimes->{
  3.538982365163947*^9, 3.538982405070197*^9, {3.5389824552733216`*^9, 
   3.5389824772420716`*^9}, {3.5389866683643446`*^9, 3.5389866908017015`*^9}, 
   3.538986797722892*^9, 3.5389882831134963`*^9, 3.5389892199065313`*^9, 
   3.5391916979375*^9, 3.5401003651907916`*^9, 3.540300333170206*^9, 
   3.540300404402757*^9, 3.5403008843242383`*^9, 3.540301073184572*^9, 
   3.54030193041613*^9, 3.540528336239052*^9, 3.540530903564874*^9, 
   3.540534766158424*^9, 3.5405442683708253`*^9, 3.5405578901675725`*^9, 
   3.5547157265835648`*^9, 3.5682338710772257`*^9, 3.5682348346743402`*^9, 
   3.5756305126897144`*^9, 3.5756447745108204`*^9, 3.576948304357602*^9, {
   3.577161291489708*^9, 3.577161296318984*^9}, 3.5771614655586643`*^9, {
   3.5771616061717067`*^9, 3.577161614595188*^9}, 3.577450612840334*^9, 
   3.5774524074797983`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Time Accelerator",
 FontFamily->"System"]], "Section",
 Evaluatable->False],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Signal\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<TimeAccelerator\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Accelerate time in mission simulation\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentSignal\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.520880152296875*^9, 3.520880230078125*^9}, 
   3.520932125875*^9, 3.520932753984375*^9, {3.52093324790625*^9, 
   3.520933251453125*^9}, {3.521775289609375*^9, 3.521775289921875*^9}, {
   3.52249560790625*^9, 3.522495611953125*^9}, {3.5353435506144285`*^9, 
   3.5353435625103617`*^9}, {3.538982066538947*^9, 3.5389820811170716`*^9}, {
   3.538982378538947*^9, 3.538982399913947*^9}, {3.540036466246253*^9, 
   3.540036514526885*^9}, 3.5765097463954053`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Transformi", "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{3.540036531167297*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "  ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "timeE", ",", "0.", ",", "double", ",", "\"\<sec\>\"", ",", 
       "\"\<effective time\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "massflowE", ",", "0.", ",", "double", ",", "\"\<kg\>\"", ",", 
       "\"\<Effective Mass flow rate\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcgE", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Effective x-position\>\""}], "}"}], ",", "\t", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycgE", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Effective y-position\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.540036550854545*^9, 3.5400365799479227`*^9}, {
  3.5400367642120385`*^9, 3.54003677330573*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "  ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "timecomp", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<time compression rate\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "massflow", ",", "0.", ",", "double", ",", "\"\<kg/s\>\"", ",", 
       "\"\<Mass flow rate\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "vxcg", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<x-position\>\""}], "}"}], ",", "\t", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "vycg", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<y-position\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5400365557294827`*^9, 3.540036581854148*^9}, {
   3.540036774774471*^9, 3.5400367835556645`*^9}, 3.540101749732268*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"xcgE", ",", "ycgE", ",", "timeE"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.540036598760182*^9, 3.540036610853777*^9}, 
   3.54010037897213*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDa", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Der", "[", "xcgE", "]"}], "-", 
      RowBox[{"timecomp", "*", "vxcg"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Der", "[", "ycgE", "]"}], "-", 
      RowBox[{"timecomp", "*", "vycg"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Der", "[", "timeE", "]"}], "-", "timecomp"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.54003668666566*^9, 3.540036696446847*^9}, {
  3.540101614669768*^9, 3.540101620435393*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"boudaryEquations", " ", "=", " ", 
   RowBox[{"{", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5400366286347995`*^9, 3.5400366286347995`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", " ", "=", 
   RowBox[{"{", "\n", "\t\t", 
    RowBox[{"{", 
     RowBox[{"massflowE", ",", 
      RowBox[{"timecomp", " ", "massflow"}]}], "}"}], "\n", "\t\t", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.5400366560408554`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"variableLimits", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"consfuel", ",", "0", ",", "massfuel0"}], "}"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.540036718868579*^9, 3.5400367257591596`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"variableLimits", "=", 
   RowBox[{"{", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.5400366589627123`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.5774524079248433`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(2, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.5774524079258432`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(3, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.577452407926843*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partd\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.577452407927843*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\\"SignalTimeAccelerator\\\"\\)\\), \
\\(\\(\\\"displayname\\\" \[Rule] \\(\\(\\\"Signa\\\" \[Ellipsis] \\\"rator\\\
\"\\)\\)\\)\\)}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\
\\(\\\"isopath\\\" \[Rule] \\\"SignalTimeAccelerator.svg\\\"\\)\\), \
\\(\\(\\\"iconrotation\\\" \[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \
\[Rule] \\\"SignalTimeAccelerator.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\
\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \\(\\({\
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
0.2`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \
\\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"timecomp\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\
\\(\\(\\\"x\\\" \[Rule] 0.4`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"massflow\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\
\[LeftSkeleton] 5 \[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\
\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.8\\\"\\)\\), \\(\\(\\\"y\\\" \
\[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \
\\(\\(\\\"name\\\" \[Rule] \\\"ycgE\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \\(\\({\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\(\\(\\\"Sign\\\" \[Ellipsis] \\\"ator\\\"\\)\\)\\)\\), \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"SignalTimeAccelerator.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \
\[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalTimeAccelerator.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.2`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"timecomp\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\
\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] 0.4`\\)\\), \
\\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \
\\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"massflow\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 5 \[RightSkeleton]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.8\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"ycgE\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] is not a list of contents. The third item in an XMLElement must be \
a list of contents, even if it is an empty list. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.5774524079288435`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.577452407929844*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.2`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\
\\\" \[Rule] 0.2`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.5774524079308434`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.5774524079308434`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.4`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\
\\\" \[Rule] 0.4`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.5774524079318438`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.577452407932844*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.577452407933844*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.6000000000000001`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.6000000000000001`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.577452407934844*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5769483045176115`*^9, {3.5771612916587176`*^9, 3.5771612964249897`*^9}, 
   3.57716146566467*^9, {3.5771616062847133`*^9, 3.577161614702194*^9}, 
   3.57745061300035*^9, 3.5774524079358444`*^9}],

Cell[BoxData["\<\"SignalTimeAccelerator.xml\"\>"], "Output",
 CellChangeTimes->{{3.540100367128304*^9, 3.540100384378414*^9}, 
   3.540101639544768*^9, 3.540101764138518*^9, 3.5547157268335075`*^9, 
   3.5682338712792377`*^9, 3.5682348348763523`*^9, 3.575630512931739*^9, 
   3.575644774606826*^9, 3.5769483045386124`*^9, {3.5771612916687183`*^9, 
   3.5771612964559917`*^9}, 3.5771614656986723`*^9, {3.5771616063217154`*^9, 
   3.5771616147331963`*^9}, 3.5774506130113506`*^9, 3.5774524079358444`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["EarthCoordinates",
 FontFamily->"System"]], "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.540277706431121*^9, 3.540277714774818*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Signal\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<EarthCoordinates\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Calculates earth coordinates\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentSignal\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.520880152296875*^9, 3.520880230078125*^9}, 
   3.520932125875*^9, 3.520932753984375*^9, {3.52093324790625*^9, 
   3.520933251453125*^9}, {3.521775289609375*^9, 3.521775289921875*^9}, {
   3.52249560790625*^9, 3.522495611953125*^9}, {3.5353435506144285`*^9, 
   3.5353435625103617`*^9}, {3.538982066538947*^9, 3.5389820811170716`*^9}, {
   3.538982378538947*^9, 3.538982399913947*^9}, {3.540036466246253*^9, 
   3.540036514526885*^9}, {3.540277726915365*^9, 3.540277752680825*^9}, 
   3.576509751953723*^9}],

Cell[CellGroupData[{

Cell[BoxData["file"], "Input",
 CellChangeTimes->{{3.5765150696238766`*^9, 3.5765150700669017`*^9}}],

Cell[BoxData["\<\"C:\\\\HopsanTrunk\\\\HOPSAN++\\\\ComponentLibraries\\\\\
defaultLibrary\\\\Special\\\\AeroComponents\\\\SignalEarthCoordinates.hpp\"\>\
"], "Output",
 CellChangeTimes->{{3.5765150707699423`*^9, 3.5765151035868187`*^9}, {
   3.576515213776121*^9, 3.5765152316801453`*^9}, 3.576515278478822*^9, 
   3.576948304582615*^9, {3.5771612917027197`*^9, 3.5771612964839935`*^9}, 
   3.577161465728674*^9, {3.577161606352717*^9, 3.577161614763198*^9}, 
   3.5774506130463543`*^9, 3.577452407979849*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Transformi", "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{3.540036531167297*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "  ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "timeE", ",", "0.", ",", "double", ",", "\"\<sec\>\"", ",", 
       "\"\<effective time\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "longitude", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Effective x-position\>\""}], "}"}], ",", "\t", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "lattitude", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Effective y-position\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.540036550854545*^9, 3.5400365799479227`*^9}, {
   3.5400367642120385`*^9, 3.54003677330573*^9}, 3.540277764118252*^9, {
   3.540283074925563*^9, 3.540283085175497*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "  ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
     "R", ",", "6367500.", ",", "double", ",", "\"\<m\>\"", ",", 
      "\"\<Earth radius\>\""}], "}"}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5402835318601384`*^9, 3.5402835552818637`*^9}, 
   3.540295087578125*^9, {3.5405264760398197`*^9, 3.540526494084731*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "  ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "timecomp", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<time compression rate\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "vxcg", ",", "0.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<northward speed\>\""}], "}"}], ",", "\t", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "vycg", ",", "0.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<eastward speed\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5400365557294827`*^9, 3.540036581854148*^9}, {
   3.540036774774471*^9, 3.5400367835556645`*^9}, 3.540101749732268*^9, {
   3.5402777865087337`*^9, 3.5402778445396123`*^9}, {3.577161569643617*^9, 
   3.5771615756329603`*^9}}],

Cell["\<\
Convertion factor from degrees to radians\
\>", "Text",
 CellChangeTimes->{{3.5771634858192167`*^9, 3.577163529036688*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d2r", "=", 
  FractionBox[
   RowBox[{"N", "[", 
    RowBox[{"Pi", ",", "6"}], "]"}], "180"]}]], "Input",
 CellChangeTimes->{{3.5402959560398293`*^9, 3.5402959714868135`*^9}}],

Cell[BoxData["0.01745329251994329576923690768488613444`6."], "Output",
 CellChangeTimes->{
  3.540296042342821*^9, 3.5402960830709543`*^9, 3.5405265236283913`*^9, 
   3.5405314783867087`*^9, 3.5547157277239275`*^9, 3.5682338714222455`*^9, 
   3.5682348350043592`*^9, 3.5756305130097466`*^9, 3.575644774663829*^9, 
   3.576514587824319*^9, 3.5765152785548267`*^9, 3.57694830484163*^9, {
   3.577161291829727*^9, 3.5771612965369964`*^9}, 3.577161465783677*^9, {
   3.577161606439722*^9, 3.577161614844203*^9}, 3.577450613124362*^9, 
   3.5774524080738583`*^9}]
}, Open  ]],

Cell["\<\
Convertion factor from radians to degrees\
\>", "Text",
 CellChangeTimes->{{3.577163501233098*^9, 3.5771635412613873`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"r2d", "=", 
  FractionBox["180", 
   RowBox[{"N", "[", 
    RowBox[{"Pi", ",", "6"}], "]"}]]}]], "Input",
 CellChangeTimes->{{3.540296022924648*^9, 3.5402960391064587`*^9}}],

Cell[BoxData["57.2957795130823208767981548141051463364`6."], "Output",
 CellChangeTimes->{
  3.5402960447192802`*^9, 3.5402960831022234`*^9, 3.540526523784624*^9, 
   3.5405314784023333`*^9, 3.5547157277864127`*^9, 3.5682338714502473`*^9, 
   3.568234835046362*^9, 3.5756305130327487`*^9, 3.5756447746868305`*^9, 
   3.57651458784632*^9, 3.576515278576828*^9, 3.5769483048696313`*^9, {
   3.5771612918507285`*^9, 3.577161296558998*^9}, 3.5771614658066783`*^9, {
   3.5771616064627233`*^9, 3.5771616148672037`*^9}, 3.577450613151365*^9, 
   3.5774524081078615`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"lattitude", ",", "longitude", ",", "timeE"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.540036598760182*^9, 3.540036610853777*^9}, 
   3.54010037897213*^9, {3.540283613203368*^9, 3.5402836260782857`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDa", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Der", "[", "lattitude", "]"}], "-", 
      RowBox[{"timecomp", "*", "r2d", 
       FractionBox["vxcg", "R"]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Der", "[", "longitude", "]"}], "-", 
      RowBox[{"timecomp", "*", 
       FractionBox[
        RowBox[{"r2d", " ", "vycg"}], 
        RowBox[{"R", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"d2r", " ", "lattitude"}], "]"}]}]]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Der", "[", "timeE", "]"}], "-", "timecomp"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.54003668666566*^9, 3.540036696446847*^9}, {
   3.540101614669768*^9, 3.540101620435393*^9}, {3.5402834868916764`*^9, 
   3.5402835156258674`*^9}, {3.5402835660942945`*^9, 
   3.5402836421094327`*^9}, {3.5402958822757864`*^9, 3.540295943203822*^9}, {
   3.540295978444211*^9, 3.5402960058516645`*^9}, {3.5402960581806707`*^9, 
   3.540296065716548*^9}, 3.540526178917758*^9, 3.540531467308797*^9, {
   3.577161590722823*^9, 3.5771615936269894`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "/", 
  RowBox[{"Cos", "[", "x", "]"}]}]], "Input",
 CellChangeTimes->{{3.5765144251330137`*^9, 3.5765144389048014`*^9}, {
  3.576514605994358*^9, 3.576514606234372*^9}}],

Cell[BoxData[
 RowBox[{"SecL", "[", "x", "]"}]], "Output",
 CellChangeTimes->{
  3.57651460689641*^9, 3.57651527861883*^9, 3.576948304919634*^9, {
   3.5771612918897305`*^9, 3.5771612965959997`*^9}, 3.5771614658446803`*^9, {
   3.5771616064997253`*^9, 3.577161614903206*^9}, 3.5774506132013702`*^9, 
   3.5774524081678677`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"boudaryEquations", " ", "=", " ", 
   RowBox[{"{", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5400366286347995`*^9, 3.5400366286347995`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"variableLimits", "=", 
   RowBox[{"{", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.5400366589627123`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.577452408270878*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(2, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.5774524082728777`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(3, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.577452408274878*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partd\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.577452408275878*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\\"SignalEarthCoordinates\\\"\\)\\), \
\\(\\(\\\"displayname\\\" \[Rule] \\(\\(\\\"Si\\\" \[Ellipsis] \
\\\"es\\\"\\)\\)\\)\\)}\\)\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \
\\(\\({\\(\\(\\\"isopath\\\" \[Rule] \
\\\"SignalEarthCoordinates.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalEarthCoordinates.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.25`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"timecomp\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\
\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] 0.5`\\)\\), \
\\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \
\\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"vxcg\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 3 \[RightSkeleton]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.75\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"lattitude\\\"\\)\\)}\
\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\
\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\\"version\\\" \[Rule] \\\"0.1\\\"}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"SignalEarthCoordinates\\\"\\)\\), \\(\\(\\\"displayname\\\" \
\[Rule] \\\"SignalEarthCoordinates\\\"\\)\\)}\\)\\), \\(\\({\\(\\(XMLElement[\
\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \[Rule] \
\\\"SignalEarthCoordinates.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalEarthCoordinates.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.25`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"timecomp\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\
\[LeftSkeleton] 4 \[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\
\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.75\\\"\\)\\), \\(\\(\\\"y\\\" \
\[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \
\\(\\(\\\"name\\\" \[Rule] \\\"lattitude\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] is not a list of contents. The third item in an XMLElement must be \
a list of contents, even if it is an empty list. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.5774524082768784`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.5774524082778783`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.25`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.25`\\)\[NoBreak] is not a valid value for \
an attribute in an XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.577452408278878*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.5774524082798786`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.5`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\
\\\" \[Rule] 0.5`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.577452408280879*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.5774524082818785`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.577452408282879*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.75`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.75`\\)\[NoBreak] is not a valid value for \
an attribute in an XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.5774524082838793`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765145880063295`*^9, 3.576515278668833*^9, 3.5769483049996386`*^9, {
   3.577161291946734*^9, 3.577161296642002*^9}, 3.577161465887683*^9, {
   3.5771616065447283`*^9, 3.577161614948209*^9}, 3.577450613585408*^9, 
   3.577452408284879*^9}],

Cell[BoxData["\<\"SignalEarthCoordinates.xml\"\>"], "Output",
 CellChangeTimes->{{3.540100367128304*^9, 3.540100384378414*^9}, 
   3.540101639544768*^9, 3.540101764138518*^9, {3.540295091078125*^9, 
   3.540295100953125*^9}, 3.540296083211665*^9, 3.540526528909067*^9, 
   3.540531479074196*^9, 3.5547157281925693`*^9, 3.568233871766265*^9, 
   3.5682348351993704`*^9, 3.5756305131207576`*^9, 3.5756447747388334`*^9, 
   3.5765145883383484`*^9, 3.576515278775839*^9, 3.576948305007639*^9, {
   3.5771612919727354`*^9, 3.5771612966750045`*^9}, 3.577161465925685*^9, {
   3.5771616065877304`*^9, 3.577161614991211*^9}, 3.5774506136244125`*^9, 
   3.577452408285879*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["StateMonitor", "Section",
 PageWidth->WindowWidth,
 CellChangeTimes->{{3.4464606636627417`*^9, 3.4464606852542763`*^9}, {
   3.4464607234102488`*^9, 3.4464607249246225`*^9}, {3.44674110728125*^9, 
   3.446741112*^9}, {3.44674378984375*^9, 3.44674381925*^9}, {
   3.446831826546875*^9, 3.44683182928125*^9}, {3.447608869765625*^9, 
   3.447608886046875*^9}, {3.447938377*^9, 3.44793839784375*^9}, {
   3.457505668421875*^9, 3.457505675765625*^9}, 3.457548937859375*^9, 
   3.540100392644092*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Signal\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<StateMonitor\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Check for steady state\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentSignal\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.520880152296875*^9, 3.520880230078125*^9}, 
   3.520932125875*^9, 3.520932753984375*^9, {3.52093324790625*^9, 
   3.520933251453125*^9}, {3.521775289609375*^9, 3.521775289921875*^9}, {
   3.52249560790625*^9, 3.522495611953125*^9}, {3.5353435506144285`*^9, 
   3.5353435625103617`*^9}, {3.538982066538947*^9, 3.5389820811170716`*^9}, {
   3.538982378538947*^9, 3.538982399913947*^9}, {3.540095811916009*^9, 
   3.5400958134316144`*^9}, {3.5400958446187153`*^9, 3.5400958611341286`*^9}, 
   3.5765097567529974`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "y1", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<monitored variable 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "y2", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<monitored variable 2\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "y3", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<monitored variable 3\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "sOn", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<extra trigg signal\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.446223460296875*^9, 3.44622356096875*^9}, {
   3.4462236030625*^9, 3.446223670484375*^9}, {3.446223703640625*^9, 
   3.4462238429375*^9}, {3.4462265591875*^9, 3.44622670078125*^9}, {
   3.4463566622546744`*^9, 3.4463566920669837`*^9}, 3.4463567240041475`*^9, {
   3.446357070530962*^9, 3.446357073718421*^9}, 3.446379656956832*^9, {
   3.4464008796202064`*^9, 3.44640090863546*^9}, {3.446452519793661*^9, 
   3.446452619136775*^9}, {3.446460814522464*^9, 3.446460921949324*^9}, {
   3.446460972761937*^9, 3.4464609779947715`*^9}, {3.446461042663227*^9, 
   3.4464610541442213`*^9}, {3.446522488390625*^9, 3.446522516109375*^9}, {
   3.446522610078125*^9, 3.446522622265625*^9}, {3.44652284971875*^9, 
   3.446522850484375*^9}, 3.446524524569768*^9, {3.44657946146875*^9, 
   3.44657946196875*^9}, {3.446637579390625*^9, 3.446637622890625*^9}, {
   3.44663767678125*^9, 3.446637762140625*^9}, {3.446741156203125*^9, 
   3.446741194671875*^9}, 3.446744375703125*^9, {3.4468319421875*^9, 
   3.446831994875*^9}, {3.447609315015625*^9, 3.447609356953125*^9}, 
   3.44760944415625*^9, {3.447938433375*^9, 3.44793848459375*^9}, {
   3.447938571546875*^9, 3.4479385744375*^9}, {3.447951560046875*^9, 
   3.44795160009375*^9}, {3.457505934953125*^9, 3.457505949234375*^9}, {
   3.540095890602502*^9, 3.540095891883735*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "y10", ",", "0.02", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<treashold variable 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "y20", ",", "0.02", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<treashold variable 2\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "y30", ",", "0.02", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<treashold variable 3\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "thau", ",", "1.", ",", "double", ",", "\"\<sec\>\"", ",", 
       "\"\<filter time constant 2\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.446223415796875*^9, 3.44622341625*^9}, {
   3.446226723234375*^9, 3.446226798453125*^9}, {3.446522549734375*^9, 
   3.4465225531875*^9}, {3.44652258853125*^9, 3.44652273034375*^9}, 
   3.44652281059375*^9, {3.446621606296875*^9, 3.446621667125*^9}, {
   3.446621712171875*^9, 3.446621755359375*^9}, 3.446621793125*^9, {
   3.446741206*^9, 3.4467412113125*^9}, 3.446744380671875*^9, {
   3.4468318606875*^9, 3.446831875703125*^9}, {3.447343772046875*^9, 
   3.44734378671875*^9}, {3.447609447859375*^9, 3.447609485359375*^9}, {
   3.44793849353125*^9, 3.4479386746875*^9}, {3.44794802734375*^9, 
   3.44794807459375*^9}, {3.447948734828125*^9, 3.44794874171875*^9}, {
   3.4480035023598375`*^9, 3.4480035087661285`*^9}, {3.45754899871875*^9, 
   3.457549000296875*^9}, {3.540095892274355*^9, 3.540095893149344*^9}, {
   3.5400959381018934`*^9, 3.5400959624297075`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "s1", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<One when varaibles in steady state\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "y1f", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<filtered variable 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "y2f", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<filtered variable 2\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "y3f", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<filtered variable 3\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.446223415796875*^9, 3.44622341625*^9}, {
   3.446226723234375*^9, 3.446226798453125*^9}, {3.446522549734375*^9, 
   3.4465225531875*^9}, {3.44652258853125*^9, 3.44652273034375*^9}, 
   3.44652281059375*^9, {3.446621606296875*^9, 3.446621667125*^9}, {
   3.446621712171875*^9, 3.446621755359375*^9}, 3.446621793125*^9, {
   3.446741206*^9, 3.4467412113125*^9}, 3.446744380671875*^9, {
   3.4468318606875*^9, 3.446831875703125*^9}, {3.447343772046875*^9, 
   3.44734378671875*^9}, {3.447609447859375*^9, 3.447609485359375*^9}, {
   3.44793849353125*^9, 3.447938517765625*^9}, {3.447938690859375*^9, 
   3.447938742890625*^9}, 3.447948745546875*^9, {3.4575059564375*^9, 
   3.457505973640625*^9}, 3.4575489668125*^9, 3.457549249203125*^9, {
   3.5400958936805873`*^9, 3.5400958945243263`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"logicUnit", "=", ".5"}], ";"}]], "Input",
 CellChangeTimes->{{3.4463791516230717`*^9, 3.446379160381404*^9}, {
   3.446379288210043*^9, 3.446379292911693*^9}, 3.446637522625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDa", " ", "=", " ", 
   RowBox[{"{", "\n", 
    RowBox[{
     RowBox[{"y1f", " ", "-", " ", 
      FractionBox[
       RowBox[{" ", 
        RowBox[{"Abs", "[", "y1", "]"}]}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"thau", " ", "s"}], " ", "+", "1"}], ")"}]]}], ",", "\n", 
     RowBox[{"y2f", " ", "-", " ", 
      FractionBox[
       RowBox[{"Abs", "[", "y2", "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"thau", " ", "s"}], " ", "+", "1"}], ")"}]]}], ",", "\n", 
     RowBox[{"y3f", " ", "-", " ", 
      FractionBox[
       RowBox[{" ", 
        RowBox[{"Abs", "[", "y3", "]"}]}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"thau", " ", "s"}], " ", "+", "1"}], ")"}]]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"s1", "-", 
      RowBox[{"onPositive", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"onPositive", "[", 
           RowBox[{
            RowBox[{"Abs", "[", "y1f", "]"}], "-", 
            RowBox[{"Abs", "[", "y10", "]"}]}], "]"}], "+", 
          RowBox[{"onPositive", "[", 
           RowBox[{
            RowBox[{"Abs", "[", "y2f", "]"}], "-", 
            RowBox[{"Abs", "[", "y20", "]"}]}], "]"}], "+", 
          RowBox[{"onPositive", "[", 
           RowBox[{
            RowBox[{"Abs", "[", "y3f", "]"}], "-", 
            RowBox[{"Abs", "[", "y30", "]"}]}], "]"}]}], ")"}], "+", "sOn", 
        "-", "logicUnit"}], "]"}]}]}], "\n", "\t\t\t\t\t", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4462268279375*^9, 3.4462268990625*^9}, {
   3.446356063226486*^9, 3.4463561206800156`*^9}, {3.446356288882064*^9, 
   3.4463563806471014`*^9}, {3.4463566400204415`*^9, 
   3.4463566478641415`*^9}, {3.446356740988305*^9, 3.4463567625974035`*^9}, {
   3.446356847065072*^9, 3.446356909189277*^9}, {3.4463569505637474`*^9, 
   3.446356987860145*^9}, {3.4463570410000896`*^9, 3.446357063812298*^9}, {
   3.446379127283964*^9, 3.446379143364324*^9}, {3.446379179506104*^9, 
   3.4463792334299517`*^9}, {3.4463792634678044`*^9, 3.4463794425834913`*^9}, 
   3.446379541396244*^9, {3.446379638271485*^9, 3.4463796519105387`*^9}, {
   3.4463796846255193`*^9, 3.446379724605288*^9}, {3.4463798022994614`*^9, 
   3.4463798170008926`*^9}, {3.4463798623237963`*^9, 3.446379865823597*^9}, {
   3.4463961242555237`*^9, 3.4463961327898855`*^9}, {3.446396203550064*^9, 
   3.4463962447213287`*^9}, 3.4463963098476686`*^9, {3.4463973335728197`*^9, 
   3.446397362760133*^9}, {3.446397401369261*^9, 3.4463974497283263`*^9}, {
   3.446397489071824*^9, 3.44639769571055*^9}, {3.446397742851082*^9, 
   3.4463977445386252`*^9}, {3.4463979590128655`*^9, 
   3.4463980085141325`*^9}, {3.4463980572334223`*^9, 
   3.4463980630771723`*^9}, {3.4463981016865473`*^9, 
   3.4463981226552973`*^9}, {3.4463981943115473`*^9, 
   3.4463981991396723`*^9}, {3.4463982617334223`*^9, 3.446398369951914*^9}, {
   3.4463984402952137`*^9, 3.4463984526388845`*^9}, {3.446398517966591*^9, 
   3.4463986648560505`*^9}, {3.4463987018555765`*^9, 
   3.4463987746365695`*^9}, {3.4463988146529627`*^9, 
   3.4463990151255617`*^9}, {3.44639905628255*^9, 3.446399129798175*^9}, {
   3.446399189704425*^9, 3.446399280673175*^9}, {3.4464006876851635`*^9, 
   3.4464007123567224`*^9}, {3.4464007914182105`*^9, 
   3.4464007992306104`*^9}, {3.4464008721046777`*^9, 3.446400872620296*^9}, 
   3.4464528975154915`*^9, {3.4464634783653283`*^9, 3.4464634912715783`*^9}, {
   3.4465792743125*^9, 3.446579279671875*^9}, {3.446579491765625*^9, 
   3.446579505828125*^9}, {3.446620452265625*^9, 3.44662065565625*^9}, {
   3.446637497078125*^9, 3.4466375061875*^9}, {3.4466375385*^9, 
   3.446637551078125*^9}, {3.446637938234375*^9, 3.446637941484375*^9}, {
   3.446666699421875*^9, 3.4466667018125*^9}, {3.44666719959375*^9, 
   3.446667200734375*^9}, {3.446668322515625*^9, 3.446668332921875*^9}, {
   3.4466684914375*^9, 3.44666852496875*^9}, {3.446668996703125*^9, 
   3.446669001703125*^9}, {3.446669166515625*^9, 3.44666917659375*^9}, {
   3.44670421915625*^9, 3.4467042908125*^9}, {3.4467044806875*^9, 
   3.446704481890625*^9}, {3.446704535734375*^9, 3.446704553015625*^9}, {
   3.446704624859375*^9, 3.446704666*^9}, {3.446704786796875*^9, 
   3.446704813015625*^9}, 3.44670733509375*^9, {3.446707379109375*^9, 
   3.446707485484375*^9}, 3.446708362203125*^9, {3.44670887778125*^9, 
   3.44670891478125*^9}, {3.446741223921875*^9, 3.446741256296875*^9}, 
   3.446744558578125*^9, {3.446831900125*^9, 3.446831915421875*^9}, 
   3.447343669203125*^9, {3.4473437035*^9, 3.447343747203125*^9}, {
   3.447343851296875*^9, 3.44734385509375*^9}, {3.447343911203125*^9, 
   3.44734391234375*^9}, {3.44760895534375*^9, 3.4476091104375*^9}, {
   3.4476091595*^9, 3.44760928015625*^9}, 3.447688292375*^9, {
   3.44775987934375*^9, 3.44775990678125*^9}, {3.447938789671875*^9, 
   3.44793885996875*^9}, {3.447947536203125*^9, 3.447947793421875*^9}, {
   3.44794782525*^9, 3.447947856515625*^9}, {3.447947914734375*^9, 
   3.44794793440625*^9}, {3.447948486796875*^9, 3.447948494953125*^9}, {
   3.447950475734375*^9, 3.447950480359375*^9}, {3.4479514369375*^9, 
   3.447951552625*^9}, {3.457505719859375*^9, 3.45750590196875*^9}, {
   3.457506035859375*^9, 3.457506069921875*^9}, {3.457506159390625*^9, 
   3.45750616184375*^9}, 3.457506201890625*^9, {3.45754897903125*^9, 
   3.45754900778125*^9}, {3.5400959878200073`*^9, 3.540095995694906*^9}, {
   3.540102295915688*^9, 3.540102306962351*^9}, 3.540102359555091*^9, 
   3.5547852646756573`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"boundaryEquations", " ", "=", " ", 
   RowBox[{"{", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5400959186490173`*^9, 3.5400959186490173`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"y1f", ",", "y2f", ",", "y3f", ",", "s1"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.540095912227225*^9, 3.5400959122428493`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(1, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.577452408553906*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(2, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.5774524085569067`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(delayedPart \
\[LeftDoubleBracket] \\(\\(3, 1\\)\\) \[RightDoubleBracket]\\)\[NoBreak] is \
longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.577452408557906*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partd\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.5774524085599065`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"SignalStateMonitor.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \
\[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalStateMonitor.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\
\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.2`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"y1\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\
\\(\\(\\\"x\\\" \[Rule] 0.4`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"y2\\\
\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 4 \
\[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \
\\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.6\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \
\\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \
\[Rule] \\\"y2f\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \
\\\"0.8\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"y3f\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\
\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\(\\(\\\"\\\" \[Ellipsis] \\\"\\\"\\)\\) \[Rule] \
\\(\\(\[LeftSkeleton] 5 \[RightSkeleton]\\)\\)}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"SignalStateMonitor\\\"\\)\\), \\(\\(\\(\\(\\\"dis\\\" \[Ellipsis] \
\\\"ame\\\"\\)\\) \[Rule] \\(\\(\\\"\\\" \[Ellipsis] \\\"\\\"\\)\\)\\)\\)}\\)\
\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"SignalStateMonitor.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \
\[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalStateMonitor.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\
\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.2`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"y1\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\
\\(\\(\\\"x\\\" \[Rule] 0.4`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"y2\\\
\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 5 \
\[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \
\\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.8\\\"\\)\\), \\(\\(\\\"y\\\" \[Rule] \
\\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \
\[Rule] \\\"y3f\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\
\[NoBreak] is not a list of contents. The third item in an XMLElement must be \
a list of contents, even if it is an empty list. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.577452408560907*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.577452408561907*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.2`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\
\\\" \[Rule] 0.2`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.5774524085629067`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.577452408564907*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.4`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\
\\\" \[Rule] 0.4`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.5774524085659075`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.577452408566907*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.5774524085689077`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.6000000000000001`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.6000000000000001`\\)\[NoBreak] is not a \
valid value for an attribute in an XMLElement. The value of the attribute \
must be a string. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.5774524085699077`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.576948305135647*^9, {3.577161292102743*^9, 3.57716129677101*^9}, 
   3.5771614660196905`*^9, {3.577161606740739*^9, 3.5771616150902166`*^9}, 
   3.577450613823432*^9, 3.5774524085709076`*^9}],

Cell[BoxData["\<\"SignalStateMonitor.xml\"\>"], "Output",
 CellChangeTimes->{
  3.5401003964097414`*^9, 3.554715728286298*^9, 3.5547853129781837`*^9, 
   3.5682338719792776`*^9, 3.56823483554139*^9, 3.57563051324977*^9, 
   3.575644774927844*^9, 3.5769483051676483`*^9, {3.5771612921297445`*^9, 
   3.5771612968050117`*^9}, 3.5771614660556927`*^9, {3.577161606785742*^9, 
   3.5771616151272187`*^9}, 3.577450613854435*^9, 3.577452408573908*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Waypoint", "Section",
 PageWidth->WindowWidth,
 CellChangeTimes->{{3.4464606636627417`*^9, 3.4464606852542763`*^9}, {
   3.4464607234102488`*^9, 3.4464607249246225`*^9}, 3.446741120140625*^9, {
   3.447510244140625*^9, 3.447510251796875*^9}, 3.4475750579871836`*^9, 
   3.540100342846898*^9, {3.5406990325283465`*^9, 3.540699034809538*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Signal\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<Waypoint\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Waypoint Controller with way points\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentSignal\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.520880152296875*^9, 3.520880230078125*^9}, 
   3.520932125875*^9, 3.520932753984375*^9, {3.52093324790625*^9, 
   3.520933251453125*^9}, {3.521775289609375*^9, 3.521775289921875*^9}, {
   3.52249560790625*^9, 3.522495611953125*^9}, {3.5353435506144285`*^9, 
   3.5353435625103617`*^9}, {3.538982066538947*^9, 3.5389820811170716`*^9}, {
   3.538982378538947*^9, 3.538982399913947*^9}, 3.5406990282628307`*^9, 
   3.5765097625073266`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "s1", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<state 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xc", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<x-position\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "yc", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<y-position\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.446223460296875*^9, 3.44622356096875*^9}, {
   3.4462236030625*^9, 3.446223670484375*^9}, {3.446223703640625*^9, 
   3.4462238429375*^9}, {3.4462265591875*^9, 3.44622670078125*^9}, {
   3.4463566622546744`*^9, 3.4463566920669837`*^9}, 3.4463567240041475`*^9, {
   3.446357070530962*^9, 3.446357073718421*^9}, 3.446379656956832*^9, {
   3.4464008796202064`*^9, 3.44640090863546*^9}, {3.446452519793661*^9, 
   3.446452619136775*^9}, {3.446460814522464*^9, 3.446460921949324*^9}, {
   3.446460972761937*^9, 3.4464609779947715`*^9}, {3.446461042663227*^9, 
   3.4464610541442213`*^9}, {3.446522488390625*^9, 3.446522516109375*^9}, {
   3.446522610078125*^9, 3.446522622265625*^9}, {3.44652284971875*^9, 
   3.446522850484375*^9}, 3.446524524569768*^9, {3.44657946146875*^9, 
   3.44657946196875*^9}, {3.446637579390625*^9, 3.446637622890625*^9}, {
   3.44663767678125*^9, 3.446637762140625*^9}, {3.446741331921875*^9, 
   3.446741411921875*^9}, {3.4467425738125*^9, 3.446742751625*^9}, {
   3.44674492665625*^9, 3.446744933046875*^9}, 3.446747299859375*^9, {
   3.446834626125*^9, 3.446834892703125*^9}, {3.446834927984375*^9, 
   3.4468349860625*^9}, 3.446835489578125*^9, {3.447510352625*^9, 
   3.447510472859375*^9}, {3.44751067409375*^9, 3.447510704984375*^9}, {
   3.447510735484375*^9, 3.447510761828125*^9}, {3.447510805046875*^9, 
   3.447510816484375*^9}, 3.44751085640625*^9, 3.447603182109375*^9, {
   3.538980896351447*^9, 3.538980896882697*^9}, {3.538981183570197*^9, 
   3.5389812494920716`*^9}, {3.5389822003045716`*^9, 
   3.5389822028670716`*^9}, {3.538986645364492*^9, 3.5389866618487616`*^9}, {
   3.5389891590002813`*^9, 3.5389891657659063`*^9}, {3.5389892010002813`*^9, 
   3.5389892017346563`*^9}, {3.5406990465436125`*^9, 3.540699071167982*^9}, 
   3.5406993708688526`*^9, 3.5407164521525216`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "R", ",", "6367500.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Earth radius\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alt1", ",", "0", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<altitude 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "v1", ",", "200", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<ref. velocity 1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "wptol", ",", "500", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<waypoint tolerance\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xcWp1", ",", "15.1669", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<waypoint longitude\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ycWp1", ",", "58.3812", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<waypoint lattitude\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.447510830078125*^9, 3.44751083565625*^9}, {
   3.4475108769375*^9, 3.447510899515625*^9}, {3.447602234390625*^9, 
   3.44760241884375*^9}, {3.5389808973358216`*^9, 3.5389809088045716`*^9}, {
   3.540299841336206*^9, 3.5402998947105227`*^9}, {3.54030034670111*^9, 
   3.540300353247817*^9}, {3.5403003964185867`*^9, 3.5403003976216807`*^9}, {
   3.5403004813382874`*^9, 3.5403004814632845`*^9}, {3.540300521993497*^9, 
   3.5403005797420187`*^9}, {3.5403006240065107`*^9, 
   3.5403007770089912`*^9}, {3.5403008357136188`*^9, 3.540300860057992*^9}, 
   3.5403010668564873`*^9, {3.5405282925839195`*^9, 3.5405282933651495`*^9}, {
   3.5406990498091545`*^9, 3.5406990889800262`*^9}, {3.5407154658013244`*^9, 
   3.540715466691932*^9}, {3.5407165552467604`*^9, 3.5407165770609355`*^9}, {
   3.5407170264731617`*^9, 3.5407170624736223`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "set1", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<set state\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "altitudeRef", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<reference altitude\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "headingRef", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<reference heading\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"velocityRef", ",", "0.", ",", 
       RowBox[{"double", "/", "s"}], ",", "\"\<m\>\"", ",", 
       "\"\<reference velocity\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "distanceWp", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<distance to wp\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.446223415796875*^9, 3.44622341625*^9}, {
   3.446226723234375*^9, 3.446226798453125*^9}, {3.446522549734375*^9, 
   3.4465225531875*^9}, {3.44652258853125*^9, 3.44652273034375*^9}, 
   3.44652281059375*^9, {3.446621606296875*^9, 3.446621667125*^9}, {
   3.446621712171875*^9, 3.446621755359375*^9}, 3.446621793125*^9, {
   3.44674142409375*^9, 3.44674143390625*^9}, 3.446747302765625*^9, {
   3.446834900828125*^9, 3.44683492328125*^9}, {3.447510302828125*^9, 
   3.447510331328125*^9}, {3.4475981338125*^9, 3.447598192421875*^9}, {
   3.538980909382697*^9, 3.538980914038947*^9}, {3.5389812739608216`*^9, 
   3.538981316663947*^9}, {3.538982180538947*^9, 3.538982188507697*^9}, 
   3.538986625723993*^9, 3.540699094183018*^9, {3.540699282068885*^9, 
   3.540699352643463*^9}, 3.5407154716762114`*^9, {3.5407164642928357`*^9, 
   3.540716479542445*^9}, 3.54071651236973*^9, {3.57745238439649*^9, 
   3.577452386669718*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d2r", "=", 
  FractionBox[
   RowBox[{"N", "[", 
    RowBox[{"Pi", ",", "6"}], "]"}], "180"]}]], "Input",
 CellChangeTimes->{{3.5402959560398293`*^9, 3.5402959714868135`*^9}}],

Cell[BoxData["0.01745329251994329576923690768488613444`6."], "Output",
 CellChangeTimes->{
  3.540296042342821*^9, 3.5402960830709543`*^9, 3.5405265236283913`*^9, 
   3.5405283355828185`*^9, 3.54053090268988*^9, 3.540534765502161*^9, 
   3.5405442676051855`*^9, 3.540557883511408*^9, 3.540699472672019*^9, {
   3.5407154469423113`*^9, 3.5407154752073936`*^9}, 3.540717071333111*^9, 
   3.5547157284581327`*^9, 3.5682338723643*^9, 3.568234835839407*^9, 
   3.575630513299775*^9, 3.5756447749858475`*^9, 3.576515587823516*^9, 
   3.5765156326230783`*^9, 3.5769483052346525`*^9, {3.577161292190748*^9, 
   3.577161296924019*^9}, 3.5771614661696987`*^9, {3.577161606841745*^9, 
   3.5771616152442255`*^9}, 3.577450613954445*^9, 3.57745240898895*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"r2d", "=", 
  FractionBox["180", 
   RowBox[{"N", "[", 
    RowBox[{"Pi", ",", "6"}], "]"}]]}]], "Input",
 CellChangeTimes->{{3.540296022924648*^9, 3.5402960391064587`*^9}}],

Cell[BoxData["57.2957795130823208767981548141051463364`6."], "Output",
 CellChangeTimes->{
  3.5402960447192802`*^9, 3.5402960831022234`*^9, 3.540526523784624*^9, 
   3.540528335598443*^9, 3.540530902705505*^9, 3.540534765533412*^9, 
   3.5405442676208105`*^9, 3.540557883839528*^9, 3.5406994727032623`*^9, {
   3.5407154469579363`*^9, 3.540715475238643*^9}, 3.540717071348736*^9, 
   3.5547157284737544`*^9, 3.5682338724013014`*^9, 3.5682348358734093`*^9, 
   3.5756305133197775`*^9, 3.5756447750068483`*^9, 3.576515587846517*^9, 
   3.5765156326500797`*^9, 3.5769483052606535`*^9, {3.577161292210749*^9, 
   3.57716129694702*^9}, 3.5771614661947002`*^9, {3.5771616068687468`*^9, 
   3.5771616152682266`*^9}, 3.5774506139874487`*^9, 3.5774524090189524`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"distanceWpe", "=", 
   RowBox[{"d2r", " ", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"xc", "-", "xcWp1"}], ")"}], "2"], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"R", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"d2r", " ", "yc"}], "]"}]}], ")"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"yc", "-", "ycWp1"}], ")"}], "2"], 
       SuperscriptBox["R", "2"]}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"head1", "=", 
   RowBox[{"Atan2L", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"xcWp1", "-", "xc"}], ")"}], "R", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"d2r", " ", "yc"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ycWp1", "-", "yc"}], ")"}], "R"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.446452638339777*^9, 3.4464527818076086`*^9}, 
   3.446452850459015*^9, {3.4464631607090783`*^9, 3.4464631828497033`*^9}, {
   3.4464634087559533`*^9, 3.4464634630059533`*^9}, 3.4464635408809533`*^9, {
   3.4464635848497033`*^9, 3.4464635915684533`*^9}, {3.4464636283809533`*^9, 
   3.4464636733028283`*^9}, {3.4464637086622033`*^9, 
   3.4464637303184533`*^9}, {3.446525470644552*^9, 3.446525515206767*^9}, {
   3.446622352859375*^9, 3.446622357625*^9}, {3.44666587075*^9, 
   3.446665888046875*^9}, {3.446666884390625*^9, 3.446666921765625*^9}, 
   3.446666958625*^9, {3.446667170421875*^9, 3.446667191203125*^9}, {
   3.446668162671875*^9, 3.446668165578125*^9}, {3.446668874546875*^9, 
   3.446668879*^9}, {3.446704056*^9, 3.446704195796875*^9}, 
   3.44670435046875*^9, {3.44670455921875*^9, 3.44670461946875*^9}, 
   3.446705553984375*^9, {3.446707892875*^9, 3.446707900703125*^9}, {
   3.4467083515*^9, 3.4467083814375*^9}, {3.446741457359375*^9, 
   3.446741576421875*^9}, {3.446741610890625*^9, 3.44674168228125*^9}, {
   3.4467417159375*^9, 3.44674171771875*^9}, {3.44674175265625*^9, 
   3.446742042609375*^9}, {3.446742414859375*^9, 3.44674242353125*^9}, {
   3.4468350029375*^9, 3.446835136421875*^9}, 3.447343461625*^9, {
   3.44750555559375*^9, 3.447505567140625*^9}, {3.447509747015625*^9, 
   3.447509802265625*^9}, {3.447518087296875*^9, 3.447518089640625*^9}, 
   3.44752085290625*^9, {3.44752238603125*^9, 3.447522408546875*^9}, {
   3.5389857278341665`*^9, 3.5389857349747915`*^9}, 3.5389865747711935`*^9, {
   3.538988947876569*^9, 3.5389889557358932`*^9}, {3.538989098141232*^9, 
   3.538989122094204*^9}, {3.5402999305068293`*^9, 3.540299995255586*^9}, 
   3.5403002257667055`*^9, {3.5403014115241156`*^9, 3.540301420180199*^9}, {
   3.5403017179731913`*^9, 3.5403017347236204`*^9}, 3.5403019165564003`*^9, {
   3.5405280084661927`*^9, 3.540528053215047*^9}, {3.5405281010419474`*^9, 
   3.540528219960778*^9}, {3.540530815627713*^9, 3.540530830502842*^9}, {
   3.5405343648939686`*^9, 3.540534402205991*^9}, {3.540544214744796*^9, 
   3.5405442454641356`*^9}, {3.540559001559596*^9, 3.540559006840779*^9}, {
   3.5406991201804276`*^9, 3.5406991275516043`*^9}, {3.540699207589981*^9, 
   3.5406992094015875`*^9}, {3.5406995146162834`*^9, 3.54069956218436*^9}, {
   3.5407164056693363`*^9, 3.5407164274344044`*^9}, {3.5407164874641175`*^9, 
   3.5407165094479294`*^9}, {3.5771611292054253`*^9, 3.5771611350067577`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"set1", ",", 
       RowBox[{"s1", " ", 
        RowBox[{"onPositive", "[", 
         RowBox[{"(", 
          RowBox[{"wptol", "-", "distanceWpe"}], ")"}], "]"}]}]}], "}"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"altitudeRef", ",", 
       RowBox[{"s1", " ", "alt1"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"headingRef", ",", 
       RowBox[{"s1", " ", "head1"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"velocityRef", ",", 
       RowBox[{"s1", " ", "v1"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"distanceWp", ",", "distanceWpe"}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.538980959601447*^9, 3.5389811518983216`*^9}, {
   3.538981699351447*^9, 3.538981711913947*^9}, {3.538982108538947*^9, 
   3.5389821468670716`*^9}, {3.538982445195197*^9, 3.5389824714920716`*^9}, 
   3.5389857465685415`*^9, 3.5389858448810415`*^9, {3.5389858878654165`*^9, 
   3.5389858906466665`*^9}, 3.5389859873185415`*^9, {3.5389861225372915`*^9, 
   3.5389861413029165`*^9}, {3.5389864473341665`*^9, 
   3.5389864935841665`*^9}, {3.538986543552644*^9, 3.5389865651618805`*^9}, {
   3.5389867534888*^9, 3.538986756879403*^9}, {3.5389888536740465`*^9, 
   3.5389888572521486`*^9}, {3.5389890403759766`*^9, 
   3.5389890852038145`*^9}, {3.5389891392190943`*^9, 3.538989145109681*^9}, {
   3.539191613515625*^9, 3.5391916643125*^9}, {3.539193119875*^9, 
   3.53919318265625*^9}, {3.5403002522504025`*^9, 3.540300284733946*^9}, 
   3.5405308840962486`*^9, {3.540557801449958*^9, 3.5405578394650965`*^9}, {
   3.5406991370622964`*^9, 3.5406992554257708`*^9}, {3.5406993956066556`*^9, 
   3.5406994092717934`*^9}, {3.5407164338404903`*^9, 
   3.5407164343092284`*^9}, {3.540716492338993*^9, 3.540716505807398*^9}, {
   3.540716538354838*^9, 3.5407165448709636`*^9}, {3.540717325299977*^9, 
   3.5407173312530255`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\\"SignalWaypoint\\\"\\)\\), \
\\(\\(\\\"displayname\\\" \[Rule] \\\"SignalWaypoint\\\"\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"SignalWaypoint.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalWaypoint.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.25`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"s1\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\
\\(\\(\\\"x\\\" \[Rule] 0.5`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"xc\\\
\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 5 \
\[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \
\\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.833333\\\"\\)\\), \\(\\(\\\"y\\\" \
\[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \
\\(\\(\\\"name\\\" \[Rule] \\\"distanceWp\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\
\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\(\\(\\\"\\\" \[Ellipsis] \\\"\\\"\\)\\) \[Rule] \
\\(\\(\[LeftSkeleton] 5 \[RightSkeleton]\\)\\)}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"SignalWaypoint\\\"\\)\\), \\(\\(\\(\\(\\\"di\\\" \[Ellipsis] \
\\\"ame\\\"\\)\\) \[Rule] \\(\\(\\\"\\\" \[Ellipsis] \\\"\\\"\\)\\)\\)\\)}\\)\
\\), \\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"SignalWaypoint.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \[Rule] \
\\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"SignalWaypoint.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.25`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \\(\\(\\\"a\\\" \
\[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"s1\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\
\\(\\(\\\"x\\\" \[Rule] 0.5`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \\\"xc\\\
\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\[LeftSkeleton] 5 \
\[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\\\", \
\\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.833333\\\"\\)\\), \\(\\(\\\"y\\\" \
\[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \
\\(\\(\\\"name\\\" \[Rule] \\\"distanceWp\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\
\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)\\)\\)]\\)\[NoBreak] is not \
a list of contents. The third item in an XMLElement must be a list of \
contents, even if it is an empty list. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765155879005203`*^9, 3.5765156327220836`*^9, 3.576948305340658*^9, {
   3.577161292258752*^9, 3.577161296999023*^9}, 3.5771614662447033`*^9, {
   3.5771616069227495`*^9, 3.57716161531623*^9}, 3.577450614059456*^9, 
   3.577452409086959*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765155879005203`*^9, 3.5765156327220836`*^9, 3.576948305340658*^9, {
   3.577161292258752*^9, 3.577161296999023*^9}, 3.5771614662447033`*^9, {
   3.5771616069227495`*^9, 3.57716161531623*^9}, 3.577450614059456*^9, 
   3.5774524090889597`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.25`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.25`\\)\[NoBreak] is not a valid value for \
an attribute in an XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765155879005203`*^9, 3.5765156327220836`*^9, 3.576948305340658*^9, {
   3.577161292258752*^9, 3.577161296999023*^9}, 3.5771614662447033`*^9, {
   3.5771616069227495`*^9, 3.57716161531623*^9}, 3.577450614059456*^9, 
   3.5774524090899596`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765155879005203`*^9, 3.5765156327220836`*^9, 3.576948305340658*^9, {
   3.577161292258752*^9, 3.577161296999023*^9}, 3.5771614662447033`*^9, {
   3.5771616069227495`*^9, 3.57716161531623*^9}, 3.577450614059456*^9, 
   3.5774524090909595`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.5`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\
\\\" \[Rule] 0.5`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765155879005203`*^9, 3.5765156327220836`*^9, 3.576948305340658*^9, {
   3.577161292258752*^9, 3.577161296999023*^9}, 3.5771614662447033`*^9, {
   3.5771616069227495`*^9, 3.57716161531623*^9}, 3.577450614059456*^9, 
   3.57745240909296*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765155879005203`*^9, 3.5765156327220836`*^9, 3.576948305340658*^9, {
   3.577161292258752*^9, 3.577161296999023*^9}, 3.5771614662447033`*^9, {
   3.5771616069227495`*^9, 3.57716161531623*^9}, 3.577450614059456*^9, 
   3.57745240909396*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765155879005203`*^9, 3.5765156327220836`*^9, 3.576948305340658*^9, {
   3.577161292258752*^9, 3.577161296999023*^9}, 3.5771614662447033`*^9, {
   3.5771616069227495`*^9, 3.57716161531623*^9}, 3.577450614059456*^9, 
   3.57745240909496*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.75`\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\\"x\\\" \[Rule] 0.75`\\)\[NoBreak] is not a valid value for \
an attribute in an XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765155879005203`*^9, 3.5765156327220836`*^9, 3.576948305340658*^9, {
   3.577161292258752*^9, 3.577161296999023*^9}, 3.5771614662447033`*^9, {
   3.5771616069227495`*^9, 3.57716161531623*^9}, 3.577450614059456*^9, 
   3.57745240909696*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: attrhs\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5765155879005203`*^9, 3.5765156327220836`*^9, 3.576948305340658*^9, {
   3.577161292258752*^9, 3.577161296999023*^9}, 3.5771614662447033`*^9, {
   3.5771616069227495`*^9, 3.57716161531623*^9}, 3.577450614059456*^9, 
   3.5774524090979605`*^9}],

Cell[BoxData["\<\"SignalWaypoint.xml\"\>"], "Output",
 CellChangeTimes->{
  3.538982365163947*^9, 3.538982405070197*^9, {3.5389824552733216`*^9, 
   3.5389824772420716`*^9}, {3.5389866683643446`*^9, 3.5389866908017015`*^9}, 
   3.538986797722892*^9, 3.5389882831134963`*^9, 3.5389892199065313`*^9, 
   3.5391916979375*^9, 3.5401003651907916`*^9, 3.540300333170206*^9, 
   3.540300404402757*^9, 3.5403008843242383`*^9, 3.540301073184572*^9, 
   3.54030193041613*^9, 3.540528336239052*^9, 3.540530903564874*^9, 
   3.540534766158424*^9, 3.5405442683708253`*^9, 3.5405578901675725`*^9, 
   3.5406994742966757`*^9, {3.540715447067309*^9, 3.5407154753167667`*^9}, 
   3.540717071426862*^9, 3.5547157285206184`*^9, 3.568233872519308*^9, 
   3.5682348359484134`*^9, 3.575630513375783*^9, 3.5756447750478506`*^9, 
   3.576515587913521*^9, 3.5765156327350845`*^9, 3.576948305352659*^9, {
   3.5771612922697525`*^9, 3.577161297012024*^9}, 3.5771614662567043`*^9, {
   3.57716160692975*^9, 3.5771616153222303`*^9}, 3.5774506140674562`*^9, 
   3.5774524090989604`*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Partial model", "Title",
 CellChangeTimes->{{3.5774505890449543`*^9, 3.5774505978048306`*^9}}],

Cell[CellGroupData[{

Cell["FlightRecorder", "Section",
 CellChangeTimes->{{3.522430442609375*^9, 3.522430450578125*^9}, {
  3.555912111016549*^9, 3.555912112485299*^9}, {3.556889553890625*^9, 
  3.556889559234375*^9}, {3.556891063125*^9, 3.556891064515625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Aero\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<FlightRecorder\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
  "brief", "=", "\"\<Generates a flight path for .kml for Google earth\>\""}],
   ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentSignal\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"defaultPath", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ResetComponentVariables", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.52243043575*^9, 3.522430437953125*^9}, {
   3.555912115813424*^9, 3.555912150141549*^9}, {3.556889571703125*^9, 
   3.556889613046875*^9}, {3.556891055703125*^9, 3.556891058140625*^9}, {
   3.556891762046875*^9, 3.556891763421875*^9}, 3.576509767487612*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "longitude", ",", "0.", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<longitude\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "lattitude", ",", "0.", ",", "double", ",", "\"\<deg\>\"", ",", 
       "\"\<lattitude\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "altitude", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<altitude\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "phi", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<roll angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "theta", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<tip angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "psi", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<yaw angle\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "timeE", ",", "0.", ",", "double", ",", "\"\<rad\>\"", ",", 
       "\"\<Effective time\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5224305394375*^9, 3.5224305394375*^9}, {
   3.52243058465625*^9, 3.5224305981875*^9}, 3.52328822021875*^9, {
   3.5232883535*^9, 3.523288359328125*^9}, {3.531855769421875*^9, 
   3.531855790125*^9}, {3.531855974453125*^9, 3.53185600171875*^9}, {
   3.531856163125*^9, 3.531856187796875*^9}, {3.5411602367910447`*^9, 
   3.5411602434471664`*^9}, 3.5559123321420507`*^9, {3.55594922259375*^9, 
   3.555949263484375*^9}, {3.55688962021875*^9, 3.5568896814375*^9}, {
   3.556889867703125*^9, 3.556889884421875*^9}, {3.556889996796875*^9, 
   3.556890045578125*^9}, 3.556891502125*^9, {3.55690591578125*^9, 
   3.556905933359375*^9}, {3.556906027125*^9, 3.55690603809375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "altitudeScale", ",", "20.0", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Scaling of altitude\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "timeStepRec", ",", "10.", ",", "double", ",", "\"\<sec\>\"", ",", 
       "\"\<time step for recording\>\""}], "}"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.522430544015625*^9, 3.522430601609375*^9}, {
   3.522431017015625*^9, 3.5224310198125*^9}, 3.52328822196875*^9, {
   3.52328833575*^9, 3.5232883406875*^9}, {3.531855796109375*^9, 
   3.5318558308125*^9}, {3.531856011921875*^9, 3.531856035125*^9}, {
   3.541161713191944*^9, 3.54116171961386*^9}, {3.5411621661130204`*^9, 
   3.541162205831262*^9}, {3.5411623055956097`*^9, 3.5411623262047215`*^9}, {
   3.555912340360853*^9, 3.5559123619703665`*^9}, {3.555912401689371*^9, 
   3.5559124347520823`*^9}, {3.555912932927146*^9, 3.555912945817853*^9}, {
   3.555913203147625*^9, 3.5559132086945353`*^9}, {3.555945723875*^9, 
   3.555945778375*^9}, {3.555946056125*^9, 3.555946057140625*^9}, {
   3.555946906875*^9, 3.55594692371875*^9}, 3.55594922825*^9, 
   3.555949390765625*^9, {3.556889686828125*^9, 3.556889707453125*^9}, {
   3.556889888984375*^9, 3.55688989375*^9}, {3.55689101684375*^9, 
   3.5568910434375*^9}, 3.55689175503125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
     "scaledAltitude", ",", "0.", ",", "double", ",", "\"\<\>\"", ",", 
      "\"\<Scaling of altitude\>\""}], "}"}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.522430544015625*^9, 3.522430601609375*^9}, {
   3.522431017015625*^9, 3.5224310198125*^9}, 3.52328822196875*^9, {
   3.52328833575*^9, 3.5232883406875*^9}, {3.531855796109375*^9, 
   3.5318558308125*^9}, {3.531856011921875*^9, 3.531856035125*^9}, {
   3.541161713191944*^9, 3.54116171961386*^9}, {3.5411621661130204`*^9, 
   3.541162205831262*^9}, {3.5411623055956097`*^9, 3.5411623262047215`*^9}, {
   3.555912340360853*^9, 3.5559123619703665`*^9}, {3.555912401689371*^9, 
   3.5559124347520823`*^9}, {3.555912932927146*^9, 3.555912945817853*^9}, {
   3.555913203147625*^9, 3.5559132086945353`*^9}, {3.555945723875*^9, 
   3.555945778375*^9}, {3.555946056125*^9, 3.555946057140625*^9}, {
   3.555946906875*^9, 3.55594692371875*^9}, 3.55594922825*^9, 
   3.555949390765625*^9, {3.556889686828125*^9, 3.556889707453125*^9}, {
   3.55688974846875*^9, 3.556889766796875*^9}, 3.55688980225*^9, 
   3.5568915055625*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expressions", "=", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"scaledAltitude", ",", 
     RowBox[{"altitudeScale", "*", "altitude"}]}], "}"}], 
   "\[IndentingNewLine]", "}"}]}]], "Input",
 CellChangeTimes->{{3.555931492906174*^9, 3.5559315232969933`*^9}, {
   3.555940258109375*^9, 3.55594027396875*^9}, {3.555940336875*^9, 
   3.555940382640625*^9}, {3.555940524578125*^9, 3.555940542*^9}, 
   3.55594057240625*^9, {3.555940920703125*^9, 3.55594095309375*^9}, {
   3.555941001953125*^9, 3.55594109125*^9}, {3.555941317453125*^9, 
   3.55594132215625*^9}, {3.5559486410625*^9, 3.555948643921875*^9}, {
   3.555948706546875*^9, 3.555948707921875*^9}, {3.5559899821152096`*^9, 
   3.5559899836308537`*^9}, {3.55688980971875*^9, 3.556889855984375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"scaledAltitude", ",", 
    RowBox[{"altitude", " ", "altitudeScale"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.556889935734375*^9, 3.556890209328125*^9, 3.55689108484375*^9, 
   3.55689155178125*^9, 3.556891660078125*^9, 3.556891773734375*^9, 
   3.568233872792324*^9, 3.5682348360394187`*^9, 3.5756305134507904`*^9, 
   3.5769483054366636`*^9, {3.577161292334756*^9, 3.5771612970680265`*^9}, 
   3.5771614663137074`*^9, {3.577161606984753*^9, 3.577161615378233*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"modelobject\\\", \
\\(\\({\\(\\(\\\"typename\\\" \[Rule] \\(\\(\\\"Aer\\\" \[Ellipsis] \\\"der\\\
\"\\)\\)\\)\\), \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroFlightRecorder.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \
\[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"AeroFlightRecorder.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\
\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.125`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"270\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"longitude\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\
\[LeftSkeleton] 6 \[RightSkeleton]\\)\\), \\(\\(XMLElement[\\(\\(\\\"portpose\
\\\", \\(\\({\\(\\(\\\"x\\\" \[Rule] \\\"0.5\\\"\\)\\), \\(\\(\\\"y\\\" \
\[Rule] \\\"1\\\"\\)\\), \\(\\(\\\"a\\\" \[Rule] \\\"90\\\"\\)\\), \
\\(\\(\\\"name\\\" \[Rule] \\\"scaledAltitude\\\"\\)\\)}\\)\\), \
\\(\\({}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\[NoBreak] in \
\[NoBreak]\\!\\(XMLElement[\\(\\(\\\"hopsanobjectappearance\\\", \
\\(\\({\\(\\(\\\"\\\" \[Ellipsis] \\\"\\\"\\)\\) \[Rule] \\(\\(\\\"\\\" \
\[Ellipsis] \\\"\\\"\\)\\)}\\)\\), \
\\(\\(XMLElement[\\(\\(\\\"modelobject\\\", \\(\\({\\(\\(\\\"typename\\\" \
\[Rule] \\\"AeroFlightRecorder\\\"\\)\\), \\(\\(\\\"displayname\\\" \[Rule] \
\\(\\(\\\"AeroFl\\\" \[Ellipsis] \\\"corder\\\"\\)\\)\\)\\)}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"icon\\\", \\(\\({\\(\\(\\\"isopath\\\" \
\[Rule] \\\"AeroFlightRecorder.svg\\\"\\)\\), \\(\\(\\\"iconrotation\\\" \
\[Rule] \\\"ON\\\"\\)\\), \\(\\(\\\"userpath\\\" \[Rule] \
\\\"AeroFlightRecorder.svg\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\
\\(XMLElement[\\(\\(\\\"portpositions\\\", \\(\\({}\\)\\), \
\\(\\({\\(\\(XMLElement[\\(\\(\\\"portpose\\\", \\(\\({\\(\\(\\\"x\\\" \
\[Rule] 0.125`\\)\\), \\(\\(\\\"y\\\" \[Rule] \\\"0\\\"\\)\\), \
\\(\\(\\\"a\\\" \[Rule] \\\"270\\\"\\)\\), \\(\\(\\\"name\\\" \[Rule] \
\\\"longitude\\\"\\)\\)}\\)\\), \\(\\({}\\)\\)\\)\\)]\\)\\), \\(\\(\
\[LeftSkeleton] 7 \[RightSkeleton]\\)\\)}\\)\\)\\)\\)]\\)\\)}\\)\\)\\)\\)]\\)\
\\)\\)\\)]\\)\[NoBreak] is not a list of contents. The third item in an \
XMLElement must be a list of contents, even if it is an empty list. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.538722569572625*^9, 3.5389775637865267`*^9, 3.5547158280305786`*^9, 
   3.555948850984375*^9, 3.55594916653125*^9, 3.555949305953125*^9, 
   3.55594939765625*^9, 3.555988292309985*^9, 3.5559900813977304`*^9, 
   3.555997021684737*^9, 3.555997509387944*^9, 3.55688993596875*^9, 
   3.556890209359375*^9, 3.556891084859375*^9, 3.55689157740625*^9, 
   3.556891660140625*^9, 3.556891773765625*^9, 3.5682338728523273`*^9, 
   3.5682348360924215`*^9, 3.575630513493795*^9, 3.5769483054856663`*^9, {
   3.577161292379759*^9, 3.5771612970980287`*^9}, 3.577161466345709*^9, {
   3.577161607017755*^9, 3.577161615411235*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], ":", 
  " ", "\<\"Malformed symbolic XML expression encountered. This may result in \
unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.538722569572625*^9, 3.5389775637865267`*^9, 3.5547158280305786`*^9, 
   3.555948850984375*^9, 3.55594916653125*^9, 3.555949305953125*^9, 
   3.55594939765625*^9, 3.555988292309985*^9, 3.5559900813977304`*^9, 
   3.555997021684737*^9, 3.555997509387944*^9, 3.55688993596875*^9, 
   3.556890209359375*^9, 3.556891084859375*^9, 3.55689157740625*^9, 
   3.556891660140625*^9, 3.556891773765625*^9, 3.5682338728523273`*^9, 
   3.5682348360924215`*^9, 3.575630513493795*^9, 3.5769483054856663`*^9, {
   3.577161292379759*^9, 3.5771612970980287`*^9}, 3.577161466345709*^9, {
   3.577161607017755*^9, 3.5771616154122353`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(0.125`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\\\" \
\[Rule] 0.125`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.538722569572625*^9, 3.5389775637865267`*^9, 3.5547158280305786`*^9, 
   3.555948850984375*^9, 3.55594916653125*^9, 3.555949305953125*^9, 
   3.55594939765625*^9, 3.555988292309985*^9, 3.5559900813977304`*^9, 
   3.555997021684737*^9, 3.555997509387944*^9, 3.55688993596875*^9, 
   3.556890209359375*^9, 3.556891084859375*^9, 3.55689157740625*^9, 
   3.556891660140625*^9, 3.556891773765625*^9, 3.5682338728523273`*^9, 
   3.5682348360924215`*^9, 3.575630513493795*^9, 3.5769483054856663`*^9, {
   3.577161292379759*^9, 3.5771612970980287`*^9}, 3.577161466345709*^9, {
   3.577161607017755*^9, 3.5771616154122353`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], ":", 
  " ", "\<\"Malformed symbolic XML expression encountered. This may result in \
unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.538722569572625*^9, 3.5389775637865267`*^9, 3.5547158280305786`*^9, 
   3.555948850984375*^9, 3.55594916653125*^9, 3.555949305953125*^9, 
   3.55594939765625*^9, 3.555988292309985*^9, 3.5559900813977304`*^9, 
   3.555997021684737*^9, 3.555997509387944*^9, 3.55688993596875*^9, 
   3.556890209359375*^9, 3.556891084859375*^9, 3.55689157740625*^9, 
   3.556891660140625*^9, 3.556891773765625*^9, 3.5682338728523273`*^9, 
   3.5682348360924215`*^9, 3.575630513493795*^9, 3.5769483054856663`*^9, {
   3.577161292379759*^9, 3.5771612970980287`*^9}, 3.577161466345709*^9, {
   3.577161607017755*^9, 3.577161615413235*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(0.25`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\\\" \
\[Rule] 0.25`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.538722569572625*^9, 3.5389775637865267`*^9, 3.5547158280305786`*^9, 
   3.555948850984375*^9, 3.55594916653125*^9, 3.555949305953125*^9, 
   3.55594939765625*^9, 3.555988292309985*^9, 3.5559900813977304`*^9, 
   3.555997021684737*^9, 3.555997509387944*^9, 3.55688993596875*^9, 
   3.556890209359375*^9, 3.556891084859375*^9, 3.55689157740625*^9, 
   3.556891660140625*^9, 3.556891773765625*^9, 3.5682338728523273`*^9, 
   3.5682348360924215`*^9, 3.575630513493795*^9, 3.5769483054856663`*^9, {
   3.577161292379759*^9, 3.5771612970980287`*^9}, 3.577161466345709*^9, {
   3.577161607017755*^9, 3.577161615414235*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], ":", 
  " ", "\<\"Malformed symbolic XML expression encountered. This may result in \
unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.538722569572625*^9, 3.5389775637865267`*^9, 3.5547158280305786`*^9, 
   3.555948850984375*^9, 3.55594916653125*^9, 3.555949305953125*^9, 
   3.55594939765625*^9, 3.555988292309985*^9, 3.5559900813977304`*^9, 
   3.555997021684737*^9, 3.555997509387944*^9, 3.55688993596875*^9, 
   3.556890209359375*^9, 3.556891084859375*^9, 3.55689157740625*^9, 
   3.556891660140625*^9, 3.556891773765625*^9, 3.5682338728523273`*^9, 
   3.5682348360924215`*^9, 3.575630513493795*^9, 3.5769483054856663`*^9, {
   3.577161292379759*^9, 3.5771612970980287`*^9}, 3.577161466345709*^9, {
   3.577161607017755*^9, 3.577161615414235*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Export :: \
autofix\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.538722569572625*^9, 3.5389775637865267`*^9, 3.5547158280305786`*^9, 
   3.555948850984375*^9, 3.55594916653125*^9, 3.555949305953125*^9, 
   3.55594939765625*^9, 3.555988292309985*^9, 3.5559900813977304`*^9, 
   3.555997021684737*^9, 3.555997509387944*^9, 3.55688993596875*^9, 
   3.556890209359375*^9, 3.556891084859375*^9, 3.55689157740625*^9, 
   3.556891660140625*^9, 3.556891773765625*^9, 3.5682338728523273`*^9, 
   3.5682348360924215`*^9, 3.575630513493795*^9, 3.5769483054856663`*^9, {
   3.577161292379759*^9, 3.5771612970980287`*^9}, 3.577161466345709*^9, {
   3.577161607017755*^9, 3.5771616154152355`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(0.375`\\)\[NoBreak] in \[NoBreak]\\!\\(\\\"x\\\" \
\[Rule] 0.375`\\)\[NoBreak] is not a valid value for an attribute in an \
XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.538722569572625*^9, 3.5389775637865267`*^9, 3.5547158280305786`*^9, 
   3.555948850984375*^9, 3.55594916653125*^9, 3.555949305953125*^9, 
   3.55594939765625*^9, 3.555988292309985*^9, 3.5559900813977304`*^9, 
   3.555997021684737*^9, 3.555997509387944*^9, 3.55688993596875*^9, 
   3.556890209359375*^9, 3.556891084859375*^9, 3.55689157740625*^9, 
   3.556891660140625*^9, 3.556891773765625*^9, 3.5682338728523273`*^9, 
   3.5682348360924215`*^9, 3.575630513493795*^9, 3.5769483054856663`*^9, {
   3.577161292379759*^9, 3.5771612970980287`*^9}, 3.577161466345709*^9, {
   3.577161607017755*^9, 3.5771616154152355`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(XMLElement :: \
attrhs\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.538722569572625*^9, 3.5389775637865267`*^9, 3.5547158280305786`*^9, 
   3.555948850984375*^9, 3.55594916653125*^9, 3.555949305953125*^9, 
   3.55594939765625*^9, 3.555988292309985*^9, 3.5559900813977304`*^9, 
   3.555997021684737*^9, 3.555997509387944*^9, 3.55688993596875*^9, 
   3.556890209359375*^9, 3.556891084859375*^9, 3.55689157740625*^9, 
   3.556891660140625*^9, 3.556891773765625*^9, 3.5682338728523273`*^9, 
   3.5682348360924215`*^9, 3.575630513493795*^9, 3.5769483054856663`*^9, {
   3.577161292379759*^9, 3.5771612970980287`*^9}, 3.577161466345709*^9, {
   3.577161607017755*^9, 3.5771616154162354`*^9}}],

Cell[BoxData["\<\"AeroFlightRecorder.xml\"\>"], "Output",
 CellChangeTimes->{
  3.538722569603875*^9, 3.538977563833402*^9, 3.554715828046171*^9, 
   3.5559488528125*^9, 3.55594916675*^9, 3.55594930634375*^9, 
   3.5559493976875*^9, 3.5559882935447235`*^9, 3.5559900850227766`*^9, 
   3.555997022762966*^9, 3.5559975094191957`*^9, 3.556889940375*^9, 
   3.556890209515625*^9, 3.556891086921875*^9, 3.55689158534375*^9, 
   3.556891660421875*^9, 3.55689177378125*^9, 3.5682338728713284`*^9, 
   3.5682348361064224`*^9, 3.5756305134997954`*^9, 3.576948305491667*^9, {
   3.5771612923857594`*^9, 3.5771612971060295`*^9}, 3.5771614663517094`*^9, {
   3.5771616070247555`*^9, 3.5771616154162354`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "/", 
  RowBox[{"Cos", "[", "x", "]"}]}]], "Input",
 CellChangeTimes->{{3.5765145036425037`*^9, 3.5765145080507565`*^9}}],

Cell[BoxData[
 RowBox[{"Sec", "[", "x", "]"}]], "Output",
 CellChangeTimes->{{3.5765145092468243`*^9, 3.5765145260947886`*^9}, {
   3.5765145606817665`*^9, 3.576514563644936*^9}, 3.5769483055196686`*^9, {
   3.5771612924077606`*^9, 3.5771612971300306`*^9}, 3.5771614663737106`*^9, {
   3.577161607051757*^9, 3.5771616154382367`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sin", "[", "x", "]"}], "/", 
  SuperscriptBox[
   RowBox[{"Cos", "[", "x", "]"}], "2"]}]], "Input",
 CellChangeTimes->{{3.575640799162079*^9, 3.5756408438546352`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Sec", "[", "x", "]"}], " ", 
  RowBox[{"Tan", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{{3.575640801840232*^9, 3.57564084813888*^9}, 
   3.5765145284119205`*^9, 3.57694830554467*^9, {3.577161292429762*^9, 
   3.5771612971500316`*^9}, 3.5771614663977118`*^9, {3.577161607072758*^9, 
   3.5771616154622383`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"Cos", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.5756406912689075`*^9, 3.5756407006324434`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Sec", "[", "x", "]"}], " ", 
  RowBox[{"Tan", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{
  3.5765145213275156`*^9, 3.5769483055706716`*^9, {3.5771612924507627`*^9, 
   3.577161297169033*^9}, 3.5771614664207134`*^9, {3.5771616070947595`*^9, 
   3.577161615485239*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"Sec", "[", "x", "]"}], " ", 
   RowBox[{"Tan", "[", "x", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5756407551075587`*^9, 3.575640761703936*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Sec", "[", "x", "]"}], " ", 
  RowBox[{"Tan", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{
  3.5756407625999875`*^9, 3.576948305597673*^9, {3.577161292473764*^9, 
   3.5771612971910343`*^9}, 3.5771614664447145`*^9, {3.577161607115761*^9, 
   3.5771616155062404`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DxSecL", "[", "x", "]"}], "=."}]], "Input",
 CellChangeTimes->{{3.5756407080618677`*^9, 3.5756407086449013`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Unset", "::", "norep"}], "MessageName"], ":", 
  " ", "\<\"Assignment on \[NoBreak]\\!\\(DxSecL\\)\[NoBreak] for \
\[NoBreak]\\!\\(DxSecL[x]\\)\[NoBreak] not found. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Unset/norep\\\", ButtonNote -> \
\\\"Unset::norep\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.575640709367943*^9, 3.5769483056216745`*^9, {3.577161292503766*^9, 
   3.5771612972100353`*^9}, 3.5771614664687157`*^9, {3.577161607137762*^9, 
   3.5771616155292416`*^9}}],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{
  3.5756407093699427`*^9, 3.5769483056226745`*^9, {3.577161292504766*^9, 
   3.5771612972110353`*^9}, 3.5771614664687157`*^9, {3.577161607138762*^9, 
   3.577161615530242*^9}}]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1004, 778},
WindowMargins->{{236, Automatic}, {Automatic, 29}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 221, 3, 65, "Title"],
Cell[CellGroupData[{
Cell[825, 29, 92, 1, 75, "Section"],
Cell[920, 32, 146, 2, 41, "Input"],
Cell[1069, 36, 124, 3, 41, "Input"],
Cell[1196, 41, 362, 9, 62, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1595, 55, 154, 2, 75, "Section"],
Cell[1752, 59, 1305, 30, 182, "Input"],
Cell[3060, 91, 2304, 53, 262, "Input"],
Cell[5367, 146, 2962, 69, 322, "Input"],
Cell[8332, 217, 945, 23, 122, "Input"],
Cell[9280, 242, 1140, 26, 242, "Input"],
Cell[10423, 270, 1415, 35, 82, "Input"],
Cell[11841, 307, 1189, 27, 142, "Input"],
Cell[CellGroupData[{
Cell[13055, 338, 176, 3, 41, "Input"],
Cell[13234, 343, 3692, 56, 141, "Message"],
Cell[16929, 401, 807, 15, 21, "Message"],
Cell[17739, 418, 956, 17, 21, "Message"],
Cell[18698, 437, 809, 15, 21, "Message"],
Cell[19510, 454, 956, 17, 21, "Message"],
Cell[20469, 473, 809, 15, 21, "Message"],
Cell[21281, 490, 881, 16, 21, "Message"],
Cell[22165, 508, 924, 16, 21, "Message"],
Cell[23092, 526, 884, 16, 21, "Message"],
Cell[23979, 544, 492, 7, 40, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24520, 557, 203, 3, 75, "Section"],
Cell[24726, 562, 1353, 30, 182, "Input"],
Cell[26082, 594, 1647, 37, 182, "Input"],
Cell[27732, 633, 1713, 37, 182, "Input"],
Cell[29448, 672, 628, 15, 82, "Input"],
Cell[30079, 689, 1104, 25, 62, "Input"],
Cell[31186, 716, 806, 19, 82, "Input"],
Cell[CellGroupData[{
Cell[32017, 739, 176, 3, 41, "Input"],
Cell[32196, 744, 3846, 59, 70, "Message"],
Cell[36045, 805, 634, 13, 70, "Message"],
Cell[36682, 820, 753, 15, 70, "Message"],
Cell[37438, 837, 632, 13, 70, "Message"],
Cell[38073, 852, 751, 14, 70, "Message"],
Cell[38827, 868, 634, 13, 70, "Message"],
Cell[39464, 883, 708, 14, 70, "Message"],
Cell[40175, 899, 755, 15, 70, "Message"],
Cell[40933, 916, 709, 14, 70, "Message"],
Cell[41645, 932, 536, 8, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[42230, 946, 247, 3, 45, "Section"],
Cell[42480, 951, 1393, 31, 182, "Input"],
Cell[43876, 984, 832, 18, 82, "Input"],
Cell[44711, 1004, 502, 11, 62, "Input"],
Cell[45216, 1017, 766, 13, 41, "Input"],
Cell[CellGroupData[{
Cell[46007, 1034, 176, 3, 41, "Input"],
Cell[46186, 1039, 2225, 34, 70, "Message"],
Cell[48414, 1075, 637, 13, 70, "Message"],
Cell[49054, 1090, 784, 15, 70, "Message"],
Cell[49841, 1107, 637, 13, 70, "Message"],
Cell[50481, 1122, 784, 15, 70, "Message"],
Cell[51268, 1139, 637, 13, 70, "Message"],
Cell[51908, 1154, 713, 14, 70, "Message"],
Cell[52624, 1170, 590, 8, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[53263, 1184, 308, 5, 45, "Section"],
Cell[53574, 1191, 170, 4, 29, "Text"],
Cell[53747, 1197, 1302, 29, 182, "Input"],
Cell[55052, 1228, 3794, 78, 302, "Input"],
Cell[58849, 1308, 7671, 170, 842, "Input"],
Cell[66523, 1480, 2880, 64, 302, "Input"],
Cell[CellGroupData[{
Cell[69428, 1548, 199, 5, 57, "Input"],
Cell[69630, 1555, 604, 8, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70271, 1568, 197, 5, 59, "Input"],
Cell[70471, 1575, 601, 8, 70, "Output"]
}, Open  ]],
Cell[71087, 1586, 11893, 367, 786, "Input"],
Cell[CellGroupData[{
Cell[83005, 1957, 4466, 113, 322, "Input"],
Cell[87474, 2072, 12580, 379, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100091, 2456, 63, 1, 41, "Input"],
Cell[100157, 2459, 3354, 53, 70, "Message"],
Cell[103514, 2514, 637, 13, 70, "Message"],
Cell[104154, 2529, 784, 15, 70, "Message"],
Cell[104941, 2546, 635, 13, 70, "Message"],
Cell[105579, 2561, 784, 15, 70, "Message"],
Cell[106366, 2578, 635, 13, 70, "Message"],
Cell[107004, 2593, 711, 14, 70, "Message"],
Cell[107718, 2609, 786, 15, 70, "Message"],
Cell[108507, 2626, 714, 14, 70, "Message"],
Cell[109224, 2642, 919, 13, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[110192, 2661, 99, 2, 45, "Section",
 Evaluatable->False],
Cell[110294, 2665, 1351, 30, 182, "Input"],
Cell[111648, 2697, 118, 3, 41, "Input"],
Cell[111769, 2702, 992, 25, 142, "Input"],
Cell[112764, 2729, 979, 23, 142, "Input"],
Cell[113746, 2754, 251, 6, 41, "Input"],
Cell[114000, 2762, 634, 15, 122, "Input"],
Cell[114637, 2779, 181, 4, 41, "Input"],
Cell[114821, 2785, 281, 8, 82, "Input"],
Cell[115105, 2795, 299, 7, 82, "Input"],
Cell[115407, 2804, 143, 4, 41, "Input"],
Cell[CellGroupData[{
Cell[115575, 2812, 63, 1, 41, "Input"],
Cell[115641, 2815, 709, 14, 70, "Message"],
Cell[116353, 2831, 709, 14, 70, "Message"],
Cell[117065, 2847, 707, 14, 70, "Message"],
Cell[117775, 2863, 703, 14, 70, "Message"],
Cell[118481, 2879, 3746, 56, 70, "Message"],
Cell[122230, 2937, 633, 13, 70, "Message"],
Cell[122866, 2952, 750, 14, 70, "Message"],
Cell[123619, 2968, 635, 13, 70, "Message"],
Cell[124257, 2983, 750, 14, 70, "Message"],
Cell[125010, 2999, 633, 13, 70, "Message"],
Cell[125646, 3014, 707, 14, 70, "Message"],
Cell[126356, 3030, 780, 15, 70, "Message"],
Cell[127139, 3047, 712, 14, 70, "Message"],
Cell[127854, 3063, 502, 6, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[128405, 3075, 165, 3, 45, "Section",
 Evaluatable->False],
Cell[128573, 3080, 1388, 30, 182, "Input"],
Cell[CellGroupData[{
Cell[129986, 3114, 100, 1, 41, "Input"],
Cell[130089, 3117, 509, 7, 70, "Output"]
}, Open  ]],
Cell[130613, 3127, 118, 3, 41, "Input"],
Cell[130734, 3132, 884, 21, 122, "Input"],
Cell[131621, 3155, 442, 10, 82, "Input"],
Cell[132066, 3167, 922, 21, 122, "Input"],
Cell[132991, 3190, 133, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[133149, 3197, 199, 5, 57, "Input"],
Cell[133351, 3204, 558, 8, 70, "Output"]
}, Open  ]],
Cell[133924, 3215, 133, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[134082, 3222, 197, 5, 59, "Input"],
Cell[134282, 3229, 564, 8, 70, "Output"]
}, Open  ]],
Cell[134861, 3240, 312, 7, 41, "Input"],
Cell[135176, 3249, 1204, 27, 166, "Input"],
Cell[CellGroupData[{
Cell[136405, 3280, 198, 4, 41, "Input"],
Cell[136606, 3286, 327, 6, 70, "Output"]
}, Open  ]],
Cell[136948, 3295, 181, 4, 41, "Input"],
Cell[137132, 3301, 143, 4, 41, "Input"],
Cell[CellGroupData[{
Cell[137300, 3309, 63, 1, 41, "Input"],
Cell[137366, 3312, 755, 15, 70, "Message"],
Cell[138124, 3329, 757, 15, 70, "Message"],
Cell[138884, 3346, 755, 15, 70, "Message"],
Cell[139642, 3363, 751, 15, 70, "Message"],
Cell[140396, 3380, 3545, 55, 70, "Message"],
Cell[143944, 3437, 683, 14, 70, "Message"],
Cell[144630, 3453, 798, 15, 70, "Message"],
Cell[145431, 3470, 683, 14, 70, "Message"],
Cell[146117, 3486, 796, 15, 70, "Message"],
Cell[146916, 3503, 683, 14, 70, "Message"],
Cell[147602, 3519, 755, 15, 70, "Message"],
Cell[148360, 3536, 800, 15, 70, "Message"],
Cell[149163, 3553, 758, 15, 70, "Message"],
Cell[149924, 3570, 667, 9, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[150640, 3585, 500, 8, 45, "Section"],
Cell[151143, 3595, 1386, 30, 182, "Input"],
Cell[152532, 3627, 2162, 40, 142, "Input"],
Cell[154697, 3669, 1733, 34, 142, "Input"],
Cell[156433, 3705, 1659, 34, 142, "Input"],
Cell[158095, 3741, 213, 4, 41, "Input"],
Cell[158311, 3747, 5545, 102, 229, "Input"],
Cell[163859, 3851, 182, 4, 41, "Input"],
Cell[164044, 3857, 238, 6, 41, "Input"],
Cell[CellGroupData[{
Cell[164307, 3867, 63, 1, 41, "Input"],
Cell[164373, 3870, 704, 14, 70, "Message"],
Cell[165080, 3886, 706, 14, 70, "Message"],
Cell[165789, 3902, 704, 14, 70, "Message"],
Cell[166496, 3918, 702, 14, 70, "Message"],
Cell[167201, 3934, 3934, 59, 70, "Message"],
Cell[171138, 3995, 630, 13, 70, "Message"],
Cell[171771, 4010, 747, 14, 70, "Message"],
Cell[172521, 4026, 630, 13, 70, "Message"],
Cell[173154, 4041, 747, 14, 70, "Message"],
Cell[173904, 4057, 630, 13, 70, "Message"],
Cell[174537, 4072, 706, 14, 70, "Message"],
Cell[175246, 4088, 779, 15, 70, "Message"],
Cell[176028, 4105, 709, 14, 70, "Message"],
Cell[176740, 4121, 444, 6, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[177233, 4133, 346, 5, 45, "Section"],
Cell[177582, 4140, 1320, 30, 182, "Input"],
Cell[178905, 4172, 2461, 43, 122, "Input"],
Cell[181369, 4217, 2039, 41, 182, "Input"],
Cell[183411, 4260, 1981, 39, 162, "Input"],
Cell[CellGroupData[{
Cell[185417, 4303, 199, 5, 57, "Input"],
Cell[185619, 4310, 745, 10, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186401, 4325, 197, 5, 59, "Input"],
Cell[186601, 4332, 758, 10, 70, "Output"]
}, Open  ]],
Cell[187374, 4345, 3416, 65, 64, "Input"],
Cell[190793, 4412, 2101, 41, 162, "Input"],
Cell[CellGroupData[{
Cell[192919, 4457, 63, 1, 41, "Input"],
Cell[192985, 4460, 3820, 57, 70, "Message"],
Cell[196808, 4519, 684, 14, 70, "Message"],
Cell[197495, 4535, 801, 15, 70, "Message"],
Cell[198299, 4552, 684, 14, 70, "Message"],
Cell[198986, 4568, 796, 15, 70, "Message"],
Cell[199785, 4585, 681, 14, 70, "Message"],
Cell[200469, 4601, 755, 15, 70, "Message"],
Cell[201227, 4618, 798, 15, 70, "Message"],
Cell[202028, 4635, 761, 15, 70, "Message"],
Cell[202792, 4652, 1056, 15, 70, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[203909, 4674, 100, 1, 65, "Title"],
Cell[CellGroupData[{
Cell[204034, 4679, 240, 3, 75, "Section"],
Cell[204277, 4684, 1127, 27, 182, "Input"],
Cell[205407, 4713, 2008, 43, 202, "Input"],
Cell[207418, 4758, 1470, 27, 102, "Input"],
Cell[208891, 4787, 1237, 22, 82, "Input"],
Cell[CellGroupData[{
Cell[210153, 4813, 801, 14, 82, "Input"],
Cell[210957, 4829, 535, 10, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211529, 4844, 63, 1, 41, "Input"],
Cell[211595, 4847, 3424, 51, 70, "Message"],
Cell[215022, 4900, 1046, 18, 70, "Message"],
Cell[216071, 4920, 1165, 19, 70, "Message"],
Cell[217239, 4941, 1044, 18, 70, "Message"],
Cell[218286, 4961, 1161, 19, 70, "Message"],
Cell[219450, 4982, 1044, 18, 70, "Message"],
Cell[220497, 5002, 1120, 19, 70, "Message"],
Cell[221620, 5023, 1165, 19, 21, "Message"],
Cell[222788, 5044, 1123, 19, 21, "Message"],
Cell[223914, 5065, 696, 10, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224647, 5080, 149, 3, 41, "Input"],
Cell[224799, 5085, 333, 5, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225169, 5095, 202, 5, 43, "Input"],
Cell[225374, 5102, 352, 7, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225763, 5114, 203, 5, 41, "Input"],
Cell[225969, 5121, 309, 7, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226315, 5133, 214, 5, 41, "Input"],
Cell[226532, 5140, 307, 7, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226876, 5152, 148, 3, 41, "Input"],
Cell[227027, 5157, 624, 12, 21, "Message"],
Cell[227654, 5171, 231, 4, 40, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
